sum m k
0 10 0
11 8 1
10 6 2
9 4 3
8 2 4
7 0 5
далее условие k < 5 не выполняется, выходим из цикла, печатаем значение sum = 7, конец
У=124+8×<5
у=5-124>8×
у=-119>8×
Проверь соединение с жестким диском , порядок загрузки в биосе.
Var a,b: Integer;
begin
writeln('Введите a и b');
readln(a,b);
writeln('S=a*b=',a*b);
writeln('P=2*(a+b)=',2*(a+b));
end.
Это может быть любое число