C= Если m≥4 Если m<4 ** языке паскаль

Question

C=
Если m≥4
Если m<4<br> На языке паскаль

Answer 1

Var
m:integer;
Begin
Write('m = ');
ReadLn(m);
if m>= 4 then m:=m*m-8
else m:=m+2;
WriteLn('C = ',m)
End.