var a, b, c: integer;
begin
write('Первое число: ');
readln(a);
write('Второе число: ');
readln(b);
c := a - b;
writeln('Разность: ', c);
end.
var a,b:real;
begin
writeln('Введите числа');
read(a,b);
writeln(a-b);
end.
Program P1;
uses crt;
var a, b: real;
begin
clrscr;
writeln ('Введите с клавиатуры 2 числа, после ввода каждого числа нажимайте клавишу Enter. При вводе дробных чисел целую часть от дробной отделяйте точкой, а не запятой.');
write ('Введите 1-ое число: ');
readln (a);
write ('Введите 2-ое число: ');
readln (b);
writeln ('Ответ: ', a, '-', b, '=', a-b);
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.