Перевести код с паскаля на Си - C (СИ) (156937)

program lab17_1;
uses crt;
type baza=record
name:string[20];
sename:string[30];
group:string[7];
ser_bal:real;
end;
var stud:array[1..5] of baza;
i:byte;
begin
clrscr;
for i:=1 to 5 do
with stud[i] do
begin
write('Vvedite imja: ');
readln(name);
write('Vvedite familiju: ');
readln(sename);
write('Vvedite grupu: ');
readln(group);
write('Vvedite srednij bal: ');
readln(ser_bal);
clrscr;
end;
for i:=1 to 5 do
with stud[i] do
begin
writeln(name,' ',sename,' ',group,' ',ser_bal:3:2);
end;
writeln('Otlichiki: ');
for i:=1 to 5 do
with stud[i] do
if ser_bal=5 then
writeln(name,' ',sename,' ',group);
readln;
end.