Program;
var a,b,c:real;
begin
readln(a,b,c);
writeln(a+b+c);
end.
Const n = 10;
var x: array[1..n] of integer;
i: integer;
begin
Randomize;
for i := 1 to n do
begin
x[i] := Random(11);
Write(x[i]:4)
end;
end.
Тут легко, нарисовать правдо не могу сейчас, первым делом это блок начало, затем блок ввода числа б , то есть количество машин, затем следующий блок ввода данных а, то есть цена машины, затем блок рассчета, с=а*б, то есть подсчёта выручки, затем блок вывода выручки и блок конец. Могу программу попробовать накидать если напишешь язык программирования
По логике так, возможны ошибки
Алг задача
Нач
Цел a, b,c
Вывод "введите количество проданных машин: "
Ввод а
Вывод "введите цену за автомобиль: "
Ввод b
С:=а*b
Вывод c
Кон