Какое значение будет иметь переменная р после выполнения программы, если
с клавиатуры введено число 7?
Program Primer1;
var a, b, p: integer;
Begin
writeln (‘Введите a’);
readln (a);
if (a>=7)
then begin
b:=3;
p:=a*a+b*b;
end
Else begin
b:=5;
p:=(a+b)*(a+b);
end;
writeln (‘ p=’, p);
End.