fork download
copy 
  1. program Ideone;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   SysUtils;
  7.  
  8. var 
  9.   x: Integer;
  10.   y: Real;
  11.  
  12. begin
  13.   Write('Введите значение x: ');  // Исправлено на правильный текст
  14.   Readln(x);
  15.   y := Sqr(x) + 2 * x / 3;
  16.  
  17.   Writeln;
  18.   Writeln('x = ', x:2);
  19.   Writeln('y = ', y:2:2);
  20.  
  21.   Readln;
  22. end.
Success #stdin #stdout 0s 5264KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Введите значение x: 
x =  0
y = 0.00
https://ideone.com/NmZIfm
language:
Pascal (fpc 3.0.4)
created:
8 days 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!