<span>1.Сначала требуется спросить у пользователя на сколько уменьшить.<span>Затем следует склеить "Вопрос" и то, что ввел пользователь. Это можно сделать с помощью команды слить … …, находящейся в операторах. Б</span></span><span>лок </span>изменить размер<span> и </span>установить размер, при его помощи меняем размер
Треугольник:
uses graphabc;
begin
line(150,100,200,200);
line(150,100,100,200);
line(100,200,200,200);
<span>end.</span>
3430000.............................
Var
s: real;
a: integer;
begin
readln(a);
s := 4*sqrt(a);
writeln(s);
end.
Количество программ 6, если я правильно поняла вопрос.
1*3=3*3=9+2=11*3=33+2=35+2=37
221211