//task 1
var k,m:integer;
begin
readln(k,m);
writeln('Сумма',k+m,' Произведение ',k*m,' Квадрат разности ',sqr(k-m));
end.
//task 2
var i, s:integer;
p:real;
begin
p:=1;
for i:=60 to 240 do
if i mod 3=0 then begin
s:=s+i;
p:=p*i;
end;
writeln('Сумма ',s,' Произведение ',p);
end.
//task 3
var x1,y1,x2,y2:real;
begin
//ввод координат точек
writeln('Введите X1,Y1,X2,Y2');
readln(x1,y1,x2,y2);
//выясняем в какой четверти находятся концы отрезка
if (x1>0)and(y1>0)and(x2>0)and(y2>0) then whiteln('1 четверть');
if (x1<0)and(y1>0)and(x2<0)and(y2>0) then whiteln('2 четверть');
if (x1<0)and(y1<0)and(x2<0)and(y2<0) then whiteln('3 четверть');<br> if (x1>0)and(y1<0)and(x2>0)and(y2<0) then whiteln('4 четверть');<br>end.