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

12 lines
358 B
ObjectPascal
Raw Normal View History

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