См. фото..................................
<span>1,2,3,4 ,5)
1. Начало
2. ПОВТОРЯЙ___2___РАЗА.
3. ПОВТОРЯЙ ДЛЯ ФИГУР (_1,2_,3_( кружок и ромбик и треугольник )_________ )
4. Нарисуй клетку
5. Нарисуй в клетке ФИГУРУ
6. ПОВТОРЯЙ___3____________ РАЗА
7. Впиши самую верхнюю пустую фигуру______4_______________
8. Впиши в следующую пустую фигуру ______5________________
9. Конец</span>
var s:string; i:integer;
begin
writeln('Введите строку:');
readln(s);
for i:=1 to length(s) do writeln(s[i]);
end.
Пример:
Введите строку:
primer
p
r
i
m
e
r