Загадайте целое число Х в диапазоне от 1 до 5 Прибавьте к задуманному 20 Прибавьте к полученному числу Х Разделите полученное число на 2 и от частного число ​

на выходе 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,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

a в квадрате плюс b в квадрате:

  sqr(a) + sqr(b);

64000*16=1024000 б=128000 б=125 кб