Написать программу, которая вычисляет выражение y=a^2+b^2+45

var a,b,y:integer;

begin

readln (a,b);

y:=a*a+b*b+45;

writeln(y)

end.

Подавляющему большинству пользователей персональных компьютеров имя Карла Дугласа Энгельбарта вряд ли о чем-то говорит. Но это никак не мешает более чем 1 млрд человек каждый день использовать его творения. При этом одним из самых популярных и востребованных на сегодняшний день является компьютерная мышка.В 1964 году команде доктора Дугласа Энгельбарта было поручено создать ARPANet Network Information Center, предшественник сегодняшнего интернета. Ну и что же, как побочный эффект этого проекта на свет появился первый манипулятор, который получил название компьютерная мышь.

Это уникальное изобретение, без которого сегодня тормозится любая деятельность на компьютере, на самом деле разработали случайно. Существующие тогда манипуляторы (клавиатура, джойстики и световые перья) тормозили процессы оконной среды, поэтому Дуглас быстро придумал дополнение, которое должно было облегчить текущие процессы. А это при потом оказалось гениальным изобретением!

program raf105;

uses  

 graphABC;

var  

 a: array[1..20,1..2] of integer;

 x,y,i:integer;

begin

 ClearWindow(clBlack);

 randomize;

 repeat

   if i = 20 then

    i:= 0;

   i:=i+1;

   x:=random(windowwidth);

   y:=random(windowheight);

   if a[i,1] = 0 then

     begin

       a[i,1]:= x;

       a[i,2]:= y;

     end

   else

     begin

       setbrushcolor(clBlack);

       circle(a[i,1],a[i,2],4);

       a[i,1]:= x;

       a[i,2]:= y;

     end;

   sleep(200);

   setbrushcolor(clWhite);

   circle(x,y,4);

 until false;

end.

PascalABC 3.4.2