надо составить программу на паскале у мамы было некоторое кол-во кактусов. маленькая маша старательно побрила часть

Ввод сколько маша побрила
Ввод сколько было
ответ сколько небритых

program nnn
uses crt;
var a,b,c:integer;
begin
Writeln(ссколько брила маша)
Readln a
сколько было
readln b
C:=b-a;
writeln(ответ, с)
readkey;
end.