zadach303.BAS

{* Задача303 *}

REM basic

' Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень — отрицательные.


INPUT a
INPUT b
INPUT c
PRINT a;b;c
If a>0 Then a=a^2 Else a=a^4
If b>0 Then b=b^2 Else b=b^4
If c>0 Then c=c^2 Else c=c^4
PRINT a;b;c
End