а после writeln поставил? а вообще кинь текст проги так, а то править не удобно) И кста - ошибка в смысле быстро закрывается после подсчета? там в конце пустой readln() для этого поставь и если слово programm не подсвечивает, то по ходу в нем ошибка короче programm pr; var a, p: real; begin writeln('введите первое число'); readln(a); p:=a*4; writeln(p); readln(); end. бывает, что еще нужно так писать writeln(p:2:2);
