Запишите команду генерации случайного числа от 0 до 51.

ответ:

var n, i, x: integer;

begin

    randomize;

    n : = random (7) + 5;

    for i : = 1 to n do begin

        x : = random (100) - 50;

        write (x: 5)

    end;

readln

end.

отметь как 5 звезд, нажми на и выбери как лучший ответ!

var

  x,y,z: longint;

begin

  readln(x,y,z);

if (x> 100)or(y> 100)or(z> 100) then writeln('false')

else writeln('true');

end.

program vvl;

var x: integer;

      v: real;

begin

write('x=');

readln (x);

v: = abs(a)-2;

writeln ('v='; v: 2: 1);

end.