даны три числа найти наименьшее из них

Ответ от Www www[гуру]
Пишите построчно ))))2 + 2 вам подсчитать не надо?

Ответ от Cublen[гуру]
if (a<b) and (b<c) then min:=a;if (b<a) and (b<c) then min:=b;if (c<a) and (c<b) then min:=c;

Ответ от Арсен Арутюнян[гуру]
function min(a,b: integer): integer;beginif a < b thenmin:=aelsemin:=b;end;var a,b,c: integer;beginread(a, b, c);write(min(min(a, b), c));readln;end;

Ответ от Профессор[гуру]
min:=a:if (min>b) then min:=b;if (min>c) then min:=c;

Ответ от 3 ответа[гуру]