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

Var t1, t2, t3 : real; begin readln(t1, t2, t3); if (t1 > 0) or (t2 > 0) or (t3 > 0) then writeln('есть') else writeln('нету'); end.числа вводятся через пробел.

A,b: integer;   d: string[45];   begin  setconsoleoutputcp(1251);   writeln('введите число в диапазоне от 1 дo 100');   write('a=');   readln(a);   b: =a mod 10;   a: =a div 10;   case b of  0: d: ='';   1: d: ='i';   2: d: ='ii';   3: d: ='iii';   4: d: ='iv';   5: d: ='v';   6: d: ='vi';   7: d: ='vii';   8: d: ='viii';   9: d: ='ix';   end;   b: =a mod 10;   a: =a div 10;   case b of  0: d: =''+d;   1: d: ='x'+d;   2: d: ='xx'+d;   3: d: ='xxx'+d;   4: d: ='xl'+d;   5: d: ='l'+d;   6: d: ='lx'+d;   7: d: ='lxx'+d;   8: d: ='lxxx'+d;   9: d: ='xc'+d;   end;   b: =a mod 10;   a: = a div 10;   case b of  0: d: =''+d;   1: d: ='c'+d;   end;   writeln('b римской системе счисления ' ,d);   readln;   end.  

Const n=10; var x: array[1..n] of integer; c1,c2,m1,m2,w,i: integer; begin randomize; for i: =1 to n do begin   x[i]: =random(21);   write(x[i]: 3);   end; writeln; write('w = '); readln(w); c1: =0; m1: =0; c2: =0; m2: =0; for i: =1 to n do   begin   if x[i]> w then begin c1: =c1+x[i]; m1: =m1+1; end;   if x[i]< w then begin c2: =c2+x[i]; m2: =m2+1; end;   end; writeln('c1 = ',c1,'   m1 = ',m1); writeln('c2 = ',c2,'   m2 = ',m2); end. пример:   3 19 17   9   1 13   1 10   6   4 w = 5 c1 = 74   m1 = 6 c2 = 9   m2 = 4