1)-622
2)-26Е
3)-11001101
4)-110100100
5)-212.8125
Запятые вокруг переменных во Writeln расставь =)
Строки в апострофах, переменные - без них, а всё это дело разделяется запятыми
Program pp;
var a,b:integer;
begin
read(a,b);
if (a>0) and (b>0) then begin
a:=sqr(a);
b:=sqr(b);
end;
if (a<0) and (b<0) then begin
a:=abs(a);
b:=abs(b);
end;
writeln(a,b);
end.
Сила тяжести _______________