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
var a,b,y:integer;
begin
readln (a,b);
y:=a*a+b*b+45;
writeln(y)
end.