Вопрос по Turbo Pascal

Дай код, скажу, что делать

что делать? учить программирование и править код :))

в паскале есть пошаговое выполнение программы - посмотри, а есть ли у тебя место, где комп должен что либо выводить на экран? а то может она и запускается - только тут же выполняется и закрывается :))))

поставь перед последним ендом Readln;
ну это как вариант, свякое бывает)))

Попробуй воспроизвести код под отладчиком. Отладчик всегда позволяет быстро найти потерянную ошибку.

Вот:

program qq;
var a,b,c,d,e: integer;
f:real;
begin
writeln('input 3 number');
read(a,b,c);
d:=a+b+c;
e:=a*b*c;
f:=(a+b+c)/3;
writeln('d=',d);
writeln('e=',e);
writeln('f=',f);
end.

как написано выше, она компилиться будет, но может показаться что не запускается, т. к. она запускается в мгновение проделывает все операции выводит все на экран и тут же закрывается. Это даже можно не успеть заметить. Вот если поправить вот так, то тогда программа будет ждать нажатия Enter, и только потом закроется.
program qq;
var a,b,c,d,e: integer;
f:real;
begin
writeln('input 3 number');
read(a,b,c);
d:=a+b+c;
e:=a*b*c;
f:=(a+b+c)/3;
writeln('d=',d);
writeln('e=',e);
writeln('f=',f);

readln;

end.

а если сделать вот так, то программа будет ждать нажатия любой клавиши.

program qq;
var a,b,c,d,e: integer;
f:real;
begin
writeln('input 3 number');
read(a,b,c);
d:=a+b+c;
e:=a*b*c;
f:=(a+b+c)/3;
writeln('d=',d);
writeln('e=',e);
writeln('f=',f);

repeat until keypressed;

end.

Если программа копилится нормально, то значит ошибок в коде нет и компилятор текст програмы прожовывает.

Попробуй Ф5 нажать! Правда, это зависит, от того чем ты пользуешься!