Написать программу в паскале + алгоритм. даны радиус круга и сторона квадрата. у какой фигуры площадь больше. вывести сообщение.

Var a,r,s2: integer; sk,p: real; begin  writeln('a='); readln(a); writeln('r='); readln(r); p: =3.14; sk: =p*sqr(r); s2: =sqr(a); if sk> s2 then writeln ('plosciadi kruga bolise ') else writeln('plosciadi kvadrata bolise'); readln; end.

набрать 8л

два раза отлить 3, будет 8-3-3=2л

перелить 2л из 8 в 3

набрать 8

долить из 8 в 3 1л, так чтоб он стал полным. 8-1=7л

в клетке а1 - 8

              а2 - 80

              а3 - 72

              в1 - 20

              в2 - 2