Var x,y:real;
begin
writeln (y=x^2-5/3);
writeln (Введите переменную x);
readln (x);
y:=x*x-5/3;
writeln (y =,x,^2-5/3);
writeln (y = ,y);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.