Рисунок текстовая информация. А всё остальное образная
Var n,i,s,a:integer;
begin
write('Введите n = '); readln(n);
s:=0; a:=0;
for i:=1 to n do
begin
a:=a+2;
s:=s+a*a;
end;
writeln('Сумма квадратов ',n,' четных натуральных чисел = ',s);
<span>end. </span>
Var a, b: real;
begin
readln(a, b);
writeln(a + b);
<span>end.
</span>
2)
var x, y: real;
begin
readln(x, y);
writeln(x / y);
end.
3)
var a, b, c, d: real;
begin
readln(a, b, c, d);
writeln(a * b * c * d);
end.
=))
1. Начало
2. Ввод числа a
3. a>0
4. налево a=a+1 , направо a<0 ( налево a=a-2, направо a=10)
5. Вывод а
6. Конец