1.у компика есть мыш 2.у него есть монитор 3.клавиши 4.кнопка выключения 5.кнапко перезагрузки 6.процессор.
Ответ на картинке,сначала ты объявляешь начало алгоритма прграммы(в овале),после вводишь данные (параллелограмм),а далее ставишь условие(ромб),выводишь его по формуле(прямоугольник),и заканчиваешь алгоритм(овал).
var
i,p:integer;
begin
p:=1;
for i:=7 to 12 do
p:=p*i;
writeln(p);
end.
Var
i, p: integer;
begin
p := 1;
i := 5;
while i <= 10 do
begin
p := p * i;
i := i + 1;
end;
writeln(p);
end.