Составить программку на языке паскаль: даны 3 числа а, б и

var a,b,c,x: integer;

begin

x:=10;

writeln('Введите значение a: ');

readln(a);

writeln('Введите значение b: ');

readln(b);

writeln('Введите значение c: ');

readln(c);

if (alt;c) and (alt;b) then writeln('Наименьшее число:',a,'   ',a,' + 10 = ',x+a);

if (blt;c) and (blt;a) then writeln('Меньшее число:',b,'   ',b,' + 10 = ',x+b);

if (clt;a) and (clt;b) then writeln('Меньшее число:',c,'   ',c,' + 10 = ',x+c);

end.