Var
a,b,c : integer;
begin
readln(a,b,c);
if (a < b) and (a < c) then writeln(a);
else if (b < a) and (b < c) then writeln(b);
else if (c < a) and (c < b) then writeln(c);
else writeln('Числа равны');
end.
При вычислении положить длинной стороной содержащие 5 шариков
шарики с нижней половины единицы с верхней пятерки
считать числа надо с право на лево
1999............... MCMXCIX
В)наверно
кассир и сам справится
а дворник зачем?
Program calculations;
var a,b,c, S, P,poluperimetr , Radius1, radius2: real;
begin
writeln ('Enter a:');
readln(a);
writeln('Enter b:');
readln(b);
c:=sqrt(a*a+b*b);
S:=(a*b)/2;
P:=a+b+c;;
poluperimetr:=P/2;
Radius1:=c/2;
radius2:=sqrt(((poluperimetr-a)*(poluperimetr-b)*(poluperimetr-c))/poluperimetr);
writeln('c=',c:2:2);
writeln('S=',S:2:2);
writeln('P=',P:2:2);
writeln('Radius1=',Radius1:2:2);
writeln('radius2=',radius2:2:2);
readln;
end.