fork download 
  1. program p1;
  2. uses crt;
  3. var
  4. 	a,b,x:real;
  5. 	z:integer;
  6. begin
  7. 	clrscr;
  8. 	Write('Podaj nr. dzialania');
  9. 	Writeln;
  10. 	Write('1-suma 2-iloczyn');
  11. 	read(z);
  12. 	case z of
  13. 		1:begin
  14. 			writeln;
  15. 			write('Podaj a oraz b');
  16. 			read(a,b);
  17. 			x:=a+b;
  18. 			writeln;
  19. 			write('Wynik=',x:4:2);
  20. 		end;
  21. 		2:begin
  22. 			write('Podaj a oraz b');
  23. 			read(a,b);
  24. 			x:=a*b;
  25. 			writeln;
  26. 			write('Wynik=',x:4:2);
  27. 		end;
  28. 		else
  29. 			write('Brak dzialania');
  30. 	end;
  31. 	readkey;
  32. end.
Success #stdin #stdout 0s 316KB
comments (?)
stdin 
1 2 3
stdout 
Podaj nr. dzialania
1-suma 2-iloczyn
Podaj a oraz b
Wynik=5.00
https://ideone.com/irJCKu
language:
Pascal (fpc 3.0.4)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!