Program fofgogjoj;
var
a,b,c:integer;
begin
Writeln('Введите три значения температуры');
Readln(a,b,c);
if a>0 then
Writeln('1ое значение - температура таяния');
if b>0 then
Writeln('2ое значение - температура таяния');
if c>0 then
Writeln('3е значение - температура таяния');
if (a<=0) and (b<=0) and (c<=0) then
Writeln('Температуры таяния не обнаружено');
<span>end.</span>
Минут пять десять двенадцатого минут пять десять
(1больше 2) или (1 больше 5) и (1 больше 10)= (0 или 0 и 0) = 0
Var x,y: real;
begin
write('Введите x: ');
readln(x);
y:=x*x*x+2.5*x*x-x+1;
writeln('Ответ ',y);
<span>end.</span>