Program znanija;
var count, key, pass:integer;
begin
pass:=1234;
while count <= 3 do begin
Inc(count);
readln(key);
if key = pass then
count:=5
else
writeln('Попробуйте снова');
end;
end.
Смешно. S= x*y (площадь)
P=2x + 2y (периметр)
Думаю, таблица может быть произвольной. Главное, чтобы было место для ввода x и вывода у.
Например, смотри картинку...
Логические выражения все, кроме В.