pascalabcnet/InstallerSamples/!Tutorial/01_First/Calculations2.pas

13 lines
328 B
ObjectPascal
Raw Permalink Normal View History

2018-10-26 20:12:42 +03:00
// Вывод результатов вычислений. Используются именованные константы
2015-05-14 22:35:07 +03:00
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);
2015-05-14 22:35:07 +03:00
end.