Число,месяц,дата количество
Разность это A-B=x(22677) Открой калькулятор ---> Вид ----> Программист и слева выбери вместо dec --- > Hex. Отевт: 5895
Это можно рассмотреть как: "Для i от 10 до -10 выполнить(делать) S=S+1;
Следовательно посчитав " на пальцах"(так проще), находим, что тело цикла выполнится 21раз(0 тоже число)
Подпрограмму
procedure rez(x,y:real):real;
begin
... rez=xxxxxx'
end;
redln(y);
z:=rez(x,y);
writeln(z);
.....