Рассмотри и напиши алгоритм создания слайда

Объяснение:

1 сам слайд

2 фигуры и рисунок

3 надписи под ними

4 оформление

это всё

var

s,n,i: integer;

begin

write('введите количество чисел');

readln(n);

s: =0;

for i: =1 to n do

s: =s+i*3;

writeln(s);

end.

program fasf;

var

n,q: integer;

begin

write('введите этаж: ');

readln(n);

q: =n*4;  

writeln('квартиры: ',q,q-1,q-2,q-3);

end.