Question

PASCAL:
program surface_de_x ;
var x,R : real ;
const P=3.14 ;
begin
writeln ('donner la valeur de R');
readln(R);
x:= (P*R^2-2*R^2) div 4 ;
writeln('la valeur de x est',x);
end.
jdoodle.pas(7,10) Fatal: Syntax error, ")" expected but "ordinal const" found
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode

Answer 1

At last, someone of Pascal,

var
x, R, P: real;
input: string;

begin
P := 3.14;
writeln('donner la valeur de R');
readln(input); ///You can't read int directly as readln in for string
R := strtoint64(input);
x := (((P * R * R) - 2) * R * R);
writeln('la valeur de x est ', x / 4);
readln;
end.