Write(1);
for i:=3 to 5 do
write(i);

print(''hello'')

repeat(0)

vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.

var

i,n: integer;

a: array [1..100] of integer;

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.