Program n1;
var a: byte;
begin
readln(a);
if a=0 then write('ноль');
if a=1 then write('один');
if a=2 then write('два');
if a=3 then write('три');
if a=4 then write('четыре');
if a=5 then write('пять');
end.
Var n:integer;
begin
write('n = ');
readln(n);
writeln('цифры числа:');
writeln(n div 10);
writeln(n mod 10);
end.
Пример:
n = 38
цифры числа:
3
8
1) мечта
2) надвигается шторм
3) счастливого плавания
Program SandP; //Название программы
var //Описание переменных
x,y: real; // Стороны прямоугольника
S: real; // Площадь прямоугольника
P: real; // Периметр прямоугольника
<span>procedure RectSP<span>(a,b: real; var S,P:real)</span>;</span> //Процедура
begin
S := a * b; //Нахождение площади
P := a + b; //Нахождение суммы
end;
begin //Начало основной части программы
writeln('Введите стороны прямоугольника: '); //Диалог с пользователем
readln(x,y); //Считывание сторон
RectSP(x,y,S,P); //Вызов процедуры
writeln('Площадь равна ',S); //Вывод площади
writeln('Периметр равен ',P); //Вывод периметра
end. <span>//Конец программы</span>