Kód: Vybrať všetko

procedure hodnot;
 var a:integer;
      b:real;
 begin
  Writeln('Zadaj priemer: ');
  Readln(a);
   if a>150 and a<160 then b:=a*0.50
                              else if a> 161 and a<170 then b:= a*0.60
                                                                 else if a>171 and a<200 then b:=a*0.60
                                                                                                  else Writeln('Tvoja vyska nie je na zarobenie');
end;