Каким будет распределение температуры во внутренних точках пластины, если в дополнение к условиям исходной задачи температура внешней среды по верхнему краю пластины ровно 20 градусов по цельсия, только в левом квадрате и возрастает на 50 градусов с переходом к каждому следующему вправо квадрату.
var a:integer;
begin
readln(a);
if (a<0) then a:=a*(-1) else a:=0;
writeln(a);
end.
Program zadacha;
var x:integer;
Begin
readln(x);
if (x<0) then a:=abs(x)
else a:=0;
writeln(x);
end.