pascalabcnet/TestSuite/CompilationSamples/Calculations2.pas

13 lines
341 B
ObjectPascal
Raw Permalink Normal View History

// Вывод результатов вычислений. Используются именованные константы
2015-05-14 22:35:07 +03:00
const
a = 121;
b = 363;
begin
writeln('Вычисления:');
2015-05-14 22:35:07 +03:00
writeln;
writeln(a,' + ',b,' = ',a+b);
writeln(a,' - ',b,' = ',a-b);
writeln(a,' * ',b,' = ',a*b);
writeln(a,' / ',b,' = ',a/b);
end.