13 lines
344 B
ObjectPascal
13 lines
344 B
ObjectPascal
// Вывод результатов вычислений. Используются именованные константы
|
|
const
|
|
a = 121;
|
|
b = 363;
|
|
|
|
begin
|
|
Writeln('Вычисления:');
|
|
Writeln;
|
|
Writeln(a,' + ',b,' = ',a+b);
|
|
Writeln(a,' - ',b,' = ',a-b);
|
|
Writeln(a,' * ',b,' = ',a*b);
|
|
Writeln(a,' / ',b,' = ',a/b);
|
|
end. |