Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var a,b,c : string;
begin
write('введите название 1 фигуры-');
readln (a);
write('введите название 2 фигуры-');
readln (b);
write('введите название 3 фигуры-');
readln (c);
writeln (' фигуры: ',a,b,c);
readln
end.
2^3 = 8 цветов (скорее всего оттенки серого)
program divisors;
var
n,i: integer;
readln(n);
for i: =n downto 1 do if n mod i = 0 then write(i,' ');
Популярные вопросы