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