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.
