Código Pascal
type
TPaciente = record
nombreCompleto: string;
edad: integer;
altura: real;
end;
var
paciente: TPaciente;
begin
writeln('Escribe el nombre y apellidos del paciente:');
readln(paciente.nombreCompleto);
end.
Visualización del Registro