fork download
  1. program ideoneA;
  2. var
  3. a, b, c: double;
  4. begin
  5. Writeln('Podaj liczbe a: ');
  6. ReadLn(a);
  7. Writeln('Podaj liczbe b: ');
  8. ReadLn(b);
  9. Writeln('Podaj liczbe c: ');
  10. ReadLn(c);
  11.  
  12. if (a > b) and (a > c) then
  13. WriteLn('a jest największe')
  14. else if (b > a) and (b > c) then
  15. WriteLn('b jest największe:')
  16. else
  17. WriteLn('c jest największe:');
  18. end.
Success #stdin #stdout 0s 5284KB
stdin
1
5
5
stdout
Podaj liczbe a: 
Podaj liczbe b: 
Podaj liczbe c: 
c jest największe: