Задача на Паскал

[R7KWHR3k]

Да се напише програма за намиране стойността на израза M , като въведете число Х от клавиатурата и от него извадите (3x-1). Получения резултат повдигнете на квадрат.

[Niko216]

Ейййййй.И заповядваш

[MetalGearRex]

По памет (не съм писал на паскал от 3 години), без компилатор:

PROGRAM M
var
x : integer;
BEGIN
readln(x);
writeln( (3*x - 1) * (3*x - 1) );
END.

[Гиро мекицата]

MX3x-1


няма нужда да ми благодариш

[MetalGearRex]

Хм... не си чета добре условието...

PROGRAM M
var
x : integer;
BEGIN
readln(x);
x := x - (3 * x) + 1;
writeln( x * x );
END.