program przyklad;
uses crt;
var a:array [1..3] of real;
i:integer;
begin
clrscr;
for i:=1 to 3 do
begin
write('podaj a[',i,']=');
readln(a[i]);
end;
for i:=1 to 3 do
begin
writeln('a[',i,']=',a[i]:2:2);
end;
readln;
end.
program przyklad;
uses crt;
var a :array[1..3] of longint;
i,b :integer;
begin
clrscr;
writeln('Podaj b');
Readln(b);
for i:=1 to b do
begin
write('Podaj a[',i,']');
readln (a[i]);
end;
for i:=1 to 3 do
begin
writeln('a[',i,']=',a[i]);
end;
readln;
end.