FreePascal.ru

DeADMaN96 invalid function number

Попробуйте все переменные сделать одного типа. И, кстати, а вам реально нужны такие большие числа? Может быть хватит word, а кое-где и Byte?
Ничего меньше, чем real компилятор не пускает пускает
Какого..., ээээ, фига, у вас целые по смыслу данные - real ...

Компилятор не выдает ошибок, но когда запускаю программу появляется ошибка exited with exitcode 1
var d,m,y,k,c,p,a:real;
z,n,g:longint;
begin
repeat
writeln('введите день события ');
readln(d);
until (d>0) and (d<32);
repeat
writeln('введите месяц события ');
readln(m);
until (m>0 ...