Program number;
var c, d,i:integer;
begin
writeln('Введите число');
readln(d);
writeln('Введите сколько раз вывести число');
readln(c);
for i:=1 to c do
write(d,' ');
end.
Луна
1. Создаём Эллипс
2. Перекрашиваем его в нужный цвет с помощью заливки
3. Предаём форму месяца с помощью ластика
Цветок
1. Создаём эллипс
2. Вокруг Эллипса создаём ещё другие Эллипсы и выставляем их вокруг первого Эллипса
3. Окрашиваем Эллипсы в нужные цвета
Колобок
1. Создаём эллипс
2. Внутри эллипса создаём глазки помощью инструмента "Эллипс"
3. Окрашиваем эллипсы в нужные цвета
Var A : Integer;
Begin
A:=123;
Writeln(A div 100+A div 10 mod 10+A mod 10);
end.