16*32*60=30720 символов
30720*8=30720 байт=30кбайт
Типа такого?
Текстовый Алгоритм:
1) Взять карандаш.
2) Выбрать плотную бумагу.
3) Положить бумагу на стол.
4) Нарисовать зарисовкку.
5) Закрасить зарисовку цветными карандашами.
Графический алгоритм:
Начало
1. Взять.
2. Выбрать
3. Положить
4. Нарисовать
5. Закрасить.
Program chisla;
uses crt;
var a,b,c,d : integer;
begin
Writeln('Введите трехзначное число: ');
Readln(a);
if (a<100) or (a>999) then writeln('Введено не трехзначное число')
else
begin
b:=a div 100;
c:=(a-(b*100)) div 10;
d:=a-(b*100)-(c*10);
Writeln('Сумма цифр этого числа равна ',b+c+d);
end
end.