8 Ячеек
B2|C2
B3|C3
B4|C4
B5|C5
Может, второе вот так?
А в решении Аштона лучше так напиши
readln(a, b);
writeln('P = ', 2 * (a + b));
writeln('S = ', a * b);
а то будут дополнительные вопросы к тебе у препода.
Вроде это чпу !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,b):=ReadReal2();
(a,b):=(a/2,b+30);
write(a,' ',b);
end.