Объект управления:икона
Управляющее воздействие:чтение
Цель управления:помолиться иконе
Результат управления: вера в бога
Степан в Киеве. Иван в Лениграде и Дмитрий в Москве
var
a, b, s, p: real;
begin
writeln('Введите длину прямоугольника:');
read(a);
writeln('Введите ширину прямоугольника:');
read(b);
s := a * b;
p := 2 * (a + b);
writeln('Площадь прямоугольника = ', p, #10, 'Периметр прямоугольника = ', s);
end.
Var
<span>
R1, R2, R3, S1, S2, S3: Integer;</span><span>
begin</span><span>
writeln('Введите размеры
рации и чемодана');</span><span>
readln(R1, R2, R3, S1, S2, S3);</span><span>
if ((R1 < S1) and (R2 < S2)
and (R3 < S3)) or</span><span>
((R3 < S3) and (R2 < S1) and
(R1 < S2)) or</span><span>
((R1 < S1) and (R2 < S3) and
(R3 < S3)) or</span><span>
((R2 < S2) and (R1 < S3) and
(R3 < S1)) or</span><span>
((R2 < S1) and (R3 < S2) and
(R1 < S3)) or</span><span>
((R1 < S2) and (R3 < S1) and
(R2 < S3)) then</span>
<span>WriteLn('ПОМЕЩАЕТСЯ')</span><span>
else</span>
<span>WriteLn('НЕ ПОМЕЩАЕТСЯ');</span>
<span>end.</span>
