<span>1) a=5
b=a*4
b= b div 7+a
a=3*(b div a)
a=5 b=20
a=5 b=7
a=3 b=7
2) a=129
b=a div 10
a=a-10*b=
b=b div
Что-то в двух последних строках не так...
3) a=145
b=a div 10
a= a-b
b=a div b
a=145 b=14
a=131 b=14
a=131 b=9
4)a=5
b=a*3
a=b mod 7+a
b=b mod a+4
a=5 b=15
a=6 b=15
a=6 b=7
5)a=5
a=2*a-3
b=12-21/a
b=3*b-a
</span>a=7 b=0
a=7 b=9
a=7 b=20
Vari, max, y: integer;
begin
Writeln('Вводите последовательно числа.');
Writeln('Для завершения ввода введите ноль.');
Writeln('----------------------');
max := 0;
y := 0;
repeat
y := y + 1;
write(y, ' число:');
readln(i);
if (y = 1) then max := i;
if (i = 0) then break;
if (i > max) then max := i;
until i = 0;
Writeln('----------------------');
Writeln('Максимальное число: ', max);
Writeln();
end.