Tohle jsem nedělal 20 let, syntaxi jsem zapomněl ale logicky je to snad správně:
var x: real
begin
writeln ('zadej číslo')
read(x);
if x>500 then writeln ('hodně') else
if x<100 then writeln ('málo') else
writeln ('středně')
end.
poradna.net
Neregistrovaný Přihlásit Registrovat