program nazawa;uses crt;varwzrost:integer;beginclrscr;writeln('Podaj wzrost');readln(wzrost);if (wzrost<160) thenwriteln('maly');if (wzrost > 180) thenwriteln('duzy');if ((wzrost>=160) and (wzrost <=180)) thenwriteln('sredni');readln;end.
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2025 KUDO.TIPS - All rights reserved.
program nazawa;
uses crt;
var
wzrost:integer;
begin
clrscr;
writeln('Podaj wzrost');
readln(wzrost);
if (wzrost<160) then
writeln('maly');
if (wzrost > 180) then
writeln('duzy');
if ((wzrost>=160) and (wzrost <=180)) then
writeln('sredni');
readln;
end.