program E1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a,b: real;
begin
writeln (' введіть два числа через пробіл, потім натисніть Enter');
readln(a,b);
writeln('a + b =', a+b, ' a*b =', a*b, ' a - b =', a-b);
Writeln('Press Enter to exit...');
Readln;
end. |