Построить блок-схему к программе pascal ABC var

i,a:integer;

begin

a:=1;

for i:=1 to 55 do begin

if (i mod 5)=0 then

a:=a*i;

end;

writeln('Произведение =',a);

end.

ответ: 1 знаю 2 тоже а 3 хззз :(

ответ:1.SketchUp состоит из трех основных частей это:

Основные инструменты

Инструменты рисования

Инструменты модификаций

2.Прямо угольник-инструмент рисования прямоугольников по двум точкам.

Линия-инструмент для рисования начальной схемы объекта.

Окружность-инструмент для рисования правильных окружностей.

Дуга-инструмент рисования дуг по трем параметрам.

Многоугольник- инструмент для встрайвания многоугольников в объекте.

Ручная работа-инструмент рисования объекта от руки.

3. Хз

Объяснение:

Удачи вам :)

Программа №1.

program НАЗВАНИЕ ПРОГРАММЫ;

{$APPTYPE CONSOLE}

uses
   SysUtils;
var
   a, b, h, s:real;
begin
   writeln('Enter a, b and h');
   readln(a, b, h);
      s:=(0.5*(a+b))*h;
   writeln('Area of the trapezoid=', s);
   readln;
end.

Программа №2.

program НАЗВАНИЕ ПРОГРАММЫ;

{$APPTYPE CONSOLE}

uses
   SysUtils;
var
   a, b, s:integer;
begin
   writeln('Enter the price and quantity');
   readln(a, b);
      s:=a*b;
   writeln('Cost of purchase=', s);
   readln;
end.

Программа №3.

program НАЗВАНИЕ ПРОГРАММЫ;

{$APPTYPE CONSOLE}

uses
   SysUtils;
var
   a, b, w:real;
begin
   writeln('Enter the speed and time');
   readln(a, b);
      w:=a*b;
   writeln('Way=', w);
   readln;
end.


Вместо "НАЗВАНИЯ ПРОГРАММЫ" напишите название Вашей программы.
Так как в некоторых задачах не оговорено, что числа целые или нет, я выбрал на всякий случай вещественный(real).