определения урожайности по каждому району

[Narim]

Добрый день. мне задали составить программу на 2х языках программирования.(на паскале(pas) и на СИ©) на паскале я сделал задачу. но вот на СИ у меня проблема с этим. помогите составить программу на СИ. заранее благодарю!
Исходные данные – урожай в каждом районе в засеваемые площади – задать в двух массивах. Для определения урожайности по каждому району найти частное от деления элементов массивов, содержащих исходные данные. Для определения средней урожайности по области найти частное от деления сумм элементов массивов исходных данных.
вот код паскаля
program pr1;
uses crt;
const n=5;
var
a,b: array [1..n] of real;
c: array [1..n] of real;
i: integer;
s,p: real; t:real;
begin
clrscr;
writeln('massiv a');
for i:=1 to n do
read(a[i]);


writeln('massiv b');
for i:=1 to n do
read(b[i]);
p:=0;s:=0;
for i:=1 to n do
begin
c[i]:=a[i]/b[i];
p:=p+a[i];
s:=s+b[i];
end;
t:=p/s;
writeln('urazhainost po oblosti= ',t:2:2);
writeln('urozhainost po raionam:');
for i:=1 to n do
write(c[i]:6:2);
end.Я ЕГО НАПИСАЛ Т.К МНЕ СКАЗАЛИ ЧТО МОЖНО ЧЕРЕЗ НЕГО НАПИСАТЬ ДР КОД, извиняюсь если что не так.