Напишите программу в паскаль для решения следующей задачи: для четырех произвольных чисел, введенных с клавиатуры, выведите

Var a,b,c,d:real;beginreadln(a,b,c,d);if (a<0) and (b/c=2) thenbeginwriteln((a+b+c+d)/4);if a*b*c*b>a+b+c+d then beginwriteln(a*b*c*b);writeln(a+b+c+d);end;endelsewriteln(a*2,\' \',b*2,\' \',c*2,\' \',d*2);end.