Декларативные знания.
Я знаю, что вода кипит при температуре 100°С.
Я знаю, что машина должна остановиться на красный свет светофора.
Процедурные знания.
Я знаю, как пользоваться таблицей умножения.
Я знаю, как приготовить кашу.
Я знаю, как из бумаги сделать самолётик.
//PascalABC (версия 3.4.2, сборка 1889 от 04.12.2018)
var
n, m : integer;
begin
writeln('Определение максимального числа последовательности');
writeln('положительных чисел');
writeln;
writeln('Вводите после стрелки числа. Для завершения ввода введите ноль.');
writeln;
m := 0;
repeat
n := ReadlnInteger('-> ');
if n > m then m := n;
until n = 0;
writeln;
writeln('Максимальное число: ', m)
end.
Можно заменить на
read(x1,y2,x3,x4);