fork download
copy 
  1. program ideone;
  2. function f(x: Integer): Integer;
  3. begin
  4.     if x > 3 then
  5.     	f := x * x + 5
  6.     else
  7.     	f := 8;
  8. end;
  9. var
  10.   x: Integer;
  11. begin
  12. 	writeln('Введите x..');
  13. 	readln(x);
  14. 	writeln('Результат: ', f(x));
  15. end.
Success #stdin #stdout 0.02s 4068KB
comments (?)
stdin
copy 
10
stdout
copy 
Введите x..
Результат: 105
https://ideone.com/cT6kr7
language:
Pascal (gpc 20070904)
created:
10 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!