Question

Інформатика, паскаль
даю 20 балів​

Answer 1

program Sanya2263;

var a,b: longint; //для целых чисел. Нужны рациональные – смени longint на real

begin

Read(a,b);

if (a>5) and (b>1) then Write(sqr(b)+4*a)

else Write(a*b+sqr(b));

end.