uses crt; var a:array[1..5] of integer; b,i:integer; begin clrscR; for i:=1 to 5 do begin writeln('Bir sayı giriniz'); readln(a[i]); end; for b:=1 to 5 do writeln('Yazılanlar =',a[b]); readln; end.