program yaneznayupascal;
procedure PS;
var m, n, S, P : integer;
begin
write('Введите число m (длина): ');
readln(m);
write('Введите число n (ширина): ');
readln(n);
S := m*n;
P := 2*m+2*n;
write('S = ', S);
write('P = ', P);
end;
begin
PS;
end.
(A ∧ B) ∧ (C ∧ (C ∨ A)) = A·B·(C·(C+A)) = ABC(C+A) = ABCC+AABC =
ABC+ABC = ABC = A ∧ B ∧ C
(x вводится пользователем)
var x,y:real;
begin
writeln ('Введите переменную x, y=x*2x');
readln (x);
y:=x*2*x;
writeln ('y = ',y);
<span>end.</span>