Program zadacha;
var x:integer;
Begin
readln(x);
if (x<0) then a:=abs(x)
else a:=0;
writeln(x);
end.
в) фигура, внутренние углы которой равны 36°
var
n : integer;
s : real;
begin
write('введите n ');
readln(n);
for var i := 10 to n do s += 1/i;
writeln('s = ', s);
n должно быт n >= 10