Текстовое уравнение в паскале

[gign_12]

Доброго времени суток.

Помогите решить уравнение в паскале.

Текст:
"Ввести два числа.Если среднее арифметическое этих чисел больше 120, то уменьшить их на 10, иначе возвести в квадрат."

[MyLastHit]

Давно с паскалем дел не было, но как так кажется:

var a,b:real;
begin
readln(a);
readln(b);
if (a+b)/2>120 then 
begin
a:=a-10;
b:=b-10;
end
else
begin
a:=a*a;
b:=b*b;
end;
Writeln(a,b);

[gign_12]

Вроде всё работает нормально,спасибо

[Stilet]

readln(q,w);
if ((q+w)/2)>120 then begin dec(q,10);dec(w,10);end
else begin q:=(q*q);w:=(w*w);end;

Где q,w типа Double;

P.S. опоздал...

[gign_12]

Вроде всё нормально работает, спасибо

[gign_12]

Да ладно=) closed