Запиши программу на языке Паскаль.

var
i, n:word;
begin
write('n=');
readln(n);
for i:=1 to n do begin write(i,' ');
end;
readln;
end.

На экране

=3

1)0
2)9
3)3
4) 123

программа на паскале:

program xxx;

      var a, b: real;

begin

  writeln('введите количество миль');

  readln(a);

  b: = a*1.6;

  writeln('кол-во киллометров - ',b)

end.

я пробовала у меня вышло 15 но возможны и другие варианты

5`120`000 бит =  640 000 байт = 625 кб

var a: array[1..100] of integer; i,s,n,m: integer; begin randomize; read(n,m); for i : = 1 to 100 do begin a[i]: =random(m-n) +n; if (i mod 2 =0) and (a[i] mod 2 = 0) then s: =s+1; end; writeln(s); end.