Teplomer

program teplomer;
{$APPTYPE CONSOLE}
uses SysUtils;
type celsius=-40..40;
var t:celsius;
    plus,minus:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  plus:=0; minus:=0;
  repeat
    write('Zadajte teplotu (zadavanie ukoncite 0): ');
    readln(t);
    if t>0 then plus:=plus+1;
    if t<0 then minus:=minus+1;
  until t=0;
  writeln('Zadali ste ',plus,' plusovych hodnot.');
  writeln('Zadali ste ',minus,' minusovych hodnot.');
  if plus>minus then writeln('Zadali ste viac teplych dni.');
  if plus<minus then writeln('Zadali ste viac mrazivych dni.');
  readln;
end.