var k:integer;
a:array[1..5] of real;
begin
for k:=1 to 5 do readln(a[k]);
for k:=1 to 5 do a[k]:=a[k]+1;
for k:=1 to 5 do writeln(a[k]);
end.
Объяснение:
Программа простая, поэтому все команды можно понять
