Кто знает паскаль, можете
сделать задачу: y=x*2x

(x вводится пользователем)
var x,y:real;
begin
writeln ('Введите переменную x, y=x*2x');
readln (x);
y:=x*2*x;
writeln ('y = ',y);
end.