Question

Зачет по информатике помогите

Answer 1

Может, второе вот так?
А в решении Аштона лучше так напиши

  readln(a, b);
  writeln('P = ', 2 * (a + b));
  writeln('S = ', a * b);

а то будут дополнительные вопросы к тебе у препода.

Answer 2

_ - = 3 = - _
var
  a, b: real;

begin
  readln(a, b);
  writeln('P = ', 2 * (a + b), #13, 'S = ', a * b);
end.