Question

Elabarati un program care citeste de pe tastatura datele referitoare la n persoane
(n<=50) si afisieaza pe ecran :
1)Persoana nascuta in ziua z a lunii;
2)Persona cea mai invirsta

Answer 1

   Program P1;       Uses crt;       Var x,y: integer;    Begin    Clrscr;    Writeln('Introduceti doua numere intregi:');    Write('x='); Readln(x);    Write('y='); Readln(y);    x:=x+100;    y:=y+100;    Write('Numerele marite cu 100: ');    Writeln('x=',x,' ','y=',y);    Readkey;    End.