Составить программу, которая запрашивает ввод температуры тела человека и определяет, здоров он или болен (здоров при 36

Var a: real; begin write ('введите вашу температуру:   '); read(a); //вещественное число вводится через точку if (a> =36) and (a< =37) then writeln ('вы здоровы! ') else writeln ('вы больны! '); end.

1. вариант современного решения // pascalabc.net 3.2, сборка 1439 от 09.05.2017 // внимание! если программа не работает, обновите версию! begin   writeln('число четных цифр равно ',       abs(readinteger('n='.where(c-> c.todigit.iseven).count) end. пример n= 363754345 число четных цифр равно 3 2. вариант "школьного решения" в синаксисе турбопаскаль 1983г. program tp70; uses crt; var   n: longint;   k,d: byte; begin   clrscr;   write('n= '); read(n);   n: =abs(n);   k: =0;   while n> 0 do begin       d: =n mod 10;       if d mod 2=0 then inc(k);       n: =n div 10       end;   writeln('число четных цифр равно ',k);   readkey; end.

1) program task1; var x,y,xq,yq,sum,pro,cha,raz: integer; begin write('введите числа: '); readln(x,y); xq: =sqr(x); yq: =sqr(y); sum: =xq+yq; raz: =xq-yq; pro: =xq*yq; cha: =xq/yq; write('сумма=',sum,'; разность=',raz,'; частное=',cha,'; произведение=',pro); end. 2) program task2; var a,r,rr,h,s: real; begin   write('введите длину стороны треугольника: ');   readln(a);   r : = sqrt(3) * a / 6;   rr : = 2 * r;   h : = 3 * r;   s : = a * h / 2;   writeln('радиус вписанной окружности ', r: : 2);   writeln('радиус описанной окружности ', rr: : 2);   writeln('высота треугольника ', h: : 2);   writeln('площадь треугольника ', s: : 2); end.