Надо в паскале..вычислите наименьшее из трёх заданных чисел.

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, то выделенное можно не писать