Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  zad22
Language: PASCAL
Code:
program premia;
var
 zlewykon   : integer;
begin
  writeln('podaj zlewykon');
  Readln(zle);
 
  if zle>3 then writeln ('premia 250 zl');
  if (zle>=3) and (zle<=5)then writeln ('premia 12 zl');
  if (zle>=6) and (zle<=10) then writeln ('premia 50zl');
 if zle<10 then writeln ('bark premi');
 readln();
end.           
          
          
          
          
          
          
          
          
          
          
          
          
          
          
Comments: