Код прекреплен к ответу, всё прокоментрировано. Так же продублирован в коментариях. Если есть вопросы, велком в те же коментарии.
(Формат файла должен быть *.py но на этом сайте он его не подгружает, по этому формат изменен на *.py.txt просто надо будет убрать '.txt')
Спасибо за отметку "Лучший ответ" и нажатую кнопочку "Спасибо" (:
CLASS - имя каталога, значит полное - D:\USER\CLASS.
Присвоить - это двоеточие и равно :=
Var
m:integer;
Begin
Write('m = ');
ReadLn(m);
if m>= 4 then m:=m*m-8
else m:=m+2;
WriteLn('C = ',m)
End.
var a,t: real;
begin
write('vvedite kolichestvo chasov, kotoroe spit chelovek');
readln(a);
t:=(a*100)/24;
write('chelovek spit ',t:2:0,'%');
readln;
end.