По данному псевдокоду составьте условие задачи [1], напишите программу на языке Pascal[3].

алг сумма

вещ а, s

нач

s:=0 ;

а:=1 ;

нц

пока а<=10

s:= s+а;

а:=а+1;

кц

вывод s

кон

​

на выходе 109

program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.

var

  n: integer;

begin

  readln(n);

  writeln(abs(n)-2);

end.