Вводятся два числа найти разность этих чисел. ответ можно записать в строчку

Question

Вводятся два числа найти разность этих чисел. ответ можно записать в строчку

Answer 1

CLS
INPUT a
INPUT b
c=a-b
PRINT c
END

Answer 2

Program zadacha_1;
var a,b,rez:real; //Я не случайно объявил типа real, поскольку в задаче не сказно, какие числа вводятся: целые, или дробные
begin
writeln('Введите два числа');
readln(a,b);
rez:=a-b;
writeln('Разность: ',rez);
end.