Если я правильно поняла задание, то вот
использовать Робот
алг
нач
вправо
нц 6 раз
закрасить
вниз
кц
вправо
нц 6 раз
закрасить
вверх
кц
вправо
вниз
вниз
нц 6 раз
закрасить
вниз
кц
вправо
нц 6 раз
закрасить
вверх
кц
нц 6 раз
вниз
кц
вправо
<span>
кон</span>
<span>Хранение информации.-На бумаге, в уме.
</span><span>Передача информации.- По телефону, письмом в конверте
</span><span>Поиск информации.-Спрашивать у друзей,знакомы или просто спросить дорогу у прохожего, также в автобусах и метро есть карты.
</span>
Uses crt;
var
z,x,y:real;
begin
write('Введите x и y');
readln(x,y);
z:=x+y;
writeln('Ответ: ',z);
end.
Var
mas:array [1..3] of integer;
i:integer;
begin
writeln('Введите 3 числа');
for i:= 1 to 3 do
readln(mas[i]);
for i:= 1 to 3 do
if mas[i]>0 then
writeln('Положительное число ', mas[i] ,' было возведено в квадрат =', sqr(mas[i]))
end.<span>
</span>
// С циклом:
type Linia=array[1..7] of integer;
var
x, y : Linia;
Proizvedenie, i: integer;
begin
Proizvedenie := 1;
for i := 3 to 7 do
begin
Proizvedenie := Proizvedenie * y[i];
end;
WriteLn(Proizvedenie);
end.
// Без цикла
type Linia=array[1..7] of integer;
var
x, y : Linia;
Proizvedenie, i: integer;
begin
Proizvedenie := y[7] * y[6] * y[5] * y[4] * y[3];
WriteLn(Proizvedenie);
end.