M-восраст человека , k- ( от 1 до 99)- любой число ,ввелся число m и k " мой восраст надо...

Question

M-восраст человека , k- ( от 1 до 99)- любой число ,ввелся число m и k " мой восраст надо быть болшим (меньшим)"
надо сделать программу

Comments

т.е. Ввожу m, генерирую k число от 1 до 99 и сравниваю?

---

да

Answer 1

Var m, k: integer;
begin
write('Введите m: ');
read(m);
k:= random(99)+1;
if m>k then
writeln('Ваш возраст больше.')
else
writeln('Ваш возраст меньше.')
end.