1. На крыше дома жило 10 семей ласточек. В первой семье ласточка была одна, во второй – 4, в третьей – 9 и т. д. Подсчитайте общее количество ласточек. Выведите на экран номера семей, где количество ласточек кратно в готовом шаблоне допишите недостающие операторы. program lastochka;
var l:array[1.. ] of ;

begin

for i:=1 to do begin

writeln ('l[',i,']=',l[i]);

end;
writeln ('s=',s);
for i:=1 to 10 do begin
if
writeln ('i=',i);

end.

program p;

var s,a,b,c: string; begins: =' фигуры'; writeln('введите названия трёх фигур'); read(a,b,c); writeln(s,': ',a,', ',b,' и ',c); end. 

program ml; uses crt; var x,i: integer;       w,l: real; beginclrscr; readln(x); l: =x; for i: =1 to x do                                                beginw: =w+1; l: =x/w; if frac(l) = 0 then writeln(l: 2: 0);                                                                                               end; readkey; end.

вот так понятней буде)) ну и более правильно, для

var a,b,c,d: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); end. 

бег-бог-лог-лаг-шаг

бант-кант-карт-кара-кора-коса

шар-бар-бам-бум-кум-куб

муха-мура-фура-фора-кора-корн-коан-клан-клон-слон

миг-маг-мак-бак-бек-век