Выбери верный ответ.

Программа, выводящая 37 раз слово "Russia".

var i : integer;
begin
for i := 1 downto 37
writeln ('Russia ');
readln;
end.
var i : integer;
begin
for i := 1 to 37 do
writeln ('Russia ');
readln;
end.
var i : integer;
begin
for i := 1 to 37 do
readln;
end.
var i : integer;
begin
i := 1 to 37 do
writeln ('Russia ');
readln;
end.​

на каком япе? вот пример решения на паскале abc.

program test;

var s: string;

begin

  read(s);

  write(s);

end.

jrjkj rjkf_rjkjrjkf b yf rjkf[_rjkjrjkf

var

i: integer;

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

function fn(x: integer): integer;

begin

if x mod 10 = 4 then fn: =x div 2

else fn: =x;

end;

begin

for i: =1 to 20 do

readln(a[i]);

for i: =1 to 20 do

begin

a[i]: =fn(a[i]);

writeln(a[i]);

end;

end.

varn,i: integer; x0,y0,x1,y1,x2,y2,s: real; begin readln(n); s: =0; readln(x0,y0); x1: =x0; y1: =y0; for i: =2 to n do begin readln(x2,y2); s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); x1: =x2; y1: =y2; end; x2: =x0; y2: =y0; s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); writeln(s: 10: 2); end.