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

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

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