1. Подключаются библиотеки, задаётся пространство имён standart, объявляется main, устанавливается поддержка русского языка, объявляется дробная переменная "temp", в консоль выводится "Введите произвольное число: ", запрашивается значение переменной temp, выполняется проверка на равенство значения 36.6. Если оно равно, то выводится в консоль "У вас нормальная температура тела", иначе "У вас повышенная температура", возвращается код ошибки ноль.
2. Ошибки:
Отсутствуют фигурные скобки в функции main (т. е. { })
Логическая ошибка: температура в случае, если она не равна 36.6 может быть не повышенной, а пониженной.
//Pascal ABC.NET v3.0 сборка 1111
//1
Var
a,p,s:real;
begin
readln(a);
p:=a*4;
s:=a*a;
writeln('P=',p);
writeln('S=',s);
end.
//2
Var
a,b:integer;
begin
read(a,b);
if a>b then writeln(b);
if a=b then writeln('=');
if a<b then writeln(a);
end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся.
Ваш, Глеб 'I3artle' Косырев}