Ответы и объяснения

2014-03-31T15:17:41+00:00
Var a,b:integer;
begin
a:=10;
b:=4;
if a>b+4 then begin
  if a*a>b then begin
    a:=a-b;
    b:=b-10;
    end
  else begin
    a:=a+b;
    b:=b*b;
  end;
end else
  begin
  a:=a*a;
  b:=b-a;
  end;
writeln(a,' ',b);
end.