Question

Дорогие ребята! У нас Pascal ABC, а нам задали задание 4, только без ошибок

Answer 1

Детский сад ребята.

program task4;
var a, b, c: integer;
 begin
writeln ('Введите три числа:');
readln (a, b, c);
if (a > b) and (a > c) then writeln (a);
if (b > a) and (b > c) then writeln (b);
if (c>a) and (c>b) theb writelb (c);
end.