program viz;
uses crt;
var a:real;
begin
     clrscr;
     writeln('Add meg a viz hofokat!');
     readln(a);
     if a<0 then
            writeln('Szilard halmazallapotu= jeg')
            else
            begin
                 if a>100 then
                          writeln('Gaz halmazallapotu= goz')
                          else
                          writeln('Folyadek halmazallapotu= viz');
            end;
readln;
end.