Var P,L,W,S:Real;
Begin
Read(P);
W:=P/2;
L:=P+20;
S:=L*W;
Writeln('S = ',S:0:0);
end.
Что надо то?
Таблицу истинности?
вводи команду 0 ( это ноль )
<span>begin
var a: integer;
begin
if</span> a mod 2=0 then writeIn('Число является чётным')
else writeIn('Число является нечётным<span>');
end.</span>
a - 100/0,5 -> 100 километров за пол часа, значит 200 км/ч
b - 100 км/ч
c - 100/4 = 25 км/ч
d - 100/6 = 16 целых2/3 км/ч
e - 30/6 = 5 км/ч