5. Запишіть вираз, результатом якого є ціле випадкове число у діапазоні від 40 до 100.​

var x:byte;

begin

randomize;x:=random(4)+1;

if x=1 then writeln('пики');

if x=2 then writeln('трефи');

if x=3 then writeln('бубни');

if x=4 then writeln('черви');

end.

program programxy; const n=100;

var inputtext : integer; begin    randomize;

var x : = random(n) + 1;

var y : = random(n) + 1;

var z : = x - y;

writeln('решите пример: ', x, ' - ', y, ' = ');

readln(inputtext);

if inputtext = z then      writeln('правильно! ')

else      writeln('вы ошиблись! правильный ответ: ', z)

end.

где-то так это выглядит на паскале. ошибки не обработаны, так что, если вместо числа ввести строку - программа умрет по исключению.

1) долгая бумага 2) потверждает файл или папку