Поиск работников по заданному условию - VB

Формулировка задачи:

Парни, девушки и все, кто здесь есть, помогите, пожалуйста, решить задачу: Среди 44 работников предприятия составить список фамилий с уровнем среднемесячного дохода не менее 3*МРОТ. МРОТ=83,49 рублей. И начислить работникам пособие, равное 1,5МРОТ

МРОТ - минимальный размер оплаты труда

Решение задачи: «Поиск работников по заданному условию»

textual
                            Листинг программы 
                        

                            Program NN;
Uses crt;
Const MROT=83.49; 
Var i,n:integer;
s,k:real;
Writeln('Введите количество работников:');
Read(n);
For i:=1 to 44 do
Read(s); {ЗП работника}
For i:=1 to 44 do
If s>=3*MROT then 
begin
writeln(name); 
s:=s+1.5*MROT;
writeln(s);
end;
end.
                        