Создай макет горы выполни алгоритм который ты составил в 62 карты необходимы для создания макета ты найдёшь справочном разделе если хочешь добавить макеты растений ​

var

a,b,c: real;

begin

readln(a,b,c);

writeln((a+b+c)/3);

end.

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n

var

i,n: integer;

begin

read(n);

for i: =0 to 3 do

writeln (4*n-i);

end.

var a, b, c: integer;

begin

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

if a < b then if a < c then writeln(a, ' - меньшее') else writeln(c, ' - меньшее') else if b < c then writeln(b, ' - меньшее') else writeln(c, ' - меньшее'); end.