Ответ:

7 строка должна быть:  a:=b+1;

3 строка можно объединить со второй

Объяснение:

program Pr2;

var a,b,с,p:integer;

begin

 readln(a);

 readln(b);

 a:=b+1;

 p:=a*b;

 c:=a*b;

 writeln(p);

 writeln(c);

end.