Предмет турецкий в 4 веке
так как двое сказали что он не итальянский: турецкий и не Итальянский, значит он турецкий
а так как Сергей тоже был в чем то прав, то века берем у него
Program abc;
var a,b,c : real;
begin
writeln('Введите стороны угла через пробел:');
readln(a,b);
if a+b<180 then
writeln('3 угол = ',180-(a+b) ) else
writeln('Такого треугольника не существует.')
end.
uses crt;
var ch,a,b:integer;
begin
readln(Ch);
a:=ch div 10;
b:=ch mod 10;
if a >b then writeln(a) else writeln(b);
readln;
end.
Program hhh54;
var x: longint;
begin
read (x);
if (x mod 6=0) and ( x mod 10=4) then write ((x div 100)+((x div 10) mod 10)+(x mod 10))
else write ((x div 100)*((x div 10) mod 10)*(x mod 10));
end.