Punctul a:
type angajat=record
Numele , Prenume: string[20];
zilelucru:1..31;
platapezi:real;
platapeluna:real;
end;
var
listadeplata:array[1..50] of angajat;
a,b,i,n:integer;
begin
write('Angajati:');
readln(n);
for i:=1 to n do
begin
writeln('Angajatul [',i,']:');
with[listadeplata] do begin
write('Nume:');
readln(Numele);
write('Prenumele:');
readln(prenume);
write('Zilele lucrate:');
readln(zilelucru);
write('Plata pe zi');
readln(platapezi);
end;
end;
for i:=1 to n do
begin
with listadeplata[i] do begin
platapeluna:=platapezi+zilelucru;
writeln('Angajatu ',nume,' ',prenume,' pe luna are: ',platapeluna);
end;
end;
end.
