Составьте программу нахождения количества всех целых положительных чисел от n до 25

Какой ты кла

Program prog;
Uses crt;

var n:real;

begin
clrscr;

write('n = ');
readln(n);

if (n<=25)then
  if (n>0) then writeln(Trunc(26-n))
  else writeln(25)
else writeln('Error');
end.