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