Линейный:
program a;
var a, b, c, d, e: integer;
begin
readln(a);
writeln(a);
readln(b);
writeln(b);
readln(c);
writeln(c);
readln(d);
writeln(d);
readln(e);
writeln(e);
end.
Циклический:
program a;
var a, b: integer;
begin
for b := 1 to 5 do
begin
readln(a);
writeln(a);
end;
end.