У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным.
Пользователь вводит два числа, найдите из них максимальное. (тут всё просто)
var
a,b :integer ;
begin
writeln('напишите значение a');
readln(a);
writeln('напишите значение b');
readln(b);
if(a<b) then
writeln(b);
readln();
if(a>b) then
writeln(a);
readln();
end.
program U21z2;
var n : integer;
procedure OneToN(m,n: integer);
begin
if(m < n ) then
begin
writeln(m + 1);
OneToN(m + 1, n);
end
end;
begin
OneToN(0,8);
readln();
end.