2)
var a,b,c:integer;
begin
read(a,b,c);
writeln('3 - ',100-a-b-c);
end.
3) много писанины. вообщем длина стороны считается d:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1))
площадь находится по формуле герона
4)var a:integer;
Begin
read(a);
writeln('plowad grani = ',a*a);
writeln('plowad polnoj pov= ',a*a*6);
writeln('objem= ',a*a*a);
End.