program a1;
uses crt;
var a,b,c,k:longint;
begin
clrscr;
write('Введите первое число: ');readln(a);
write('Введите второе число: ');readln(b);
write('Введите третье число: ');readln(c);
if a
if b
writeln(k);
readln
end.
Если Paskal ABC, то выделенное можно не писать