Program Lenos;
type persoane = record
nume : string;
prenume : string;
virsta : integer;
sex :  char;
stare : char;
inaltimea : real;
end;
ListaPersoane = array[1..50] of persoane;
var x : ListaPersoane;
var  n,i:integer;
begin
write('Nr.Persoane='); readln(n);
for i:= 1 to n do
begin
writeln('Culegeti datele Persoanei ',i);
write('Nume:'); readln(x[i].nume);
write('Prenume:'); readln(x[i].prenume);
write('Virsta:'); readln(x[i].virsta);
write('Sex (M/F):'); readln(x[i].sex);
write('Starea civila (Casatorit=Y,Necasatorut=N):'); readln(x[i].stare);
write('Inaltimea:'); readln(x[i].inaltimea);
end;
writeln('Persoanele casatorite cu virsta sub 25 de ani de sex masculin sunt');
for i:=1 to n do
if ((x[i].stare='Y') and (x[i].virsta < 25 ) and (x[i].sex='M')) then
begin
  writeln('Nume:',x[i].nume);
writeln('Prenume:',x[i].prenume);
writeln('Virsta:',x[i].virsta);
writeln('Sex (M/F)',x[i].sex);
writeln('Starea civila Casatorit/a');
writeln('Inaltimea:',x[i].inaltimea:2:2);
end;
readln();
end.