{program ncic;
const
home : real = 1500;
life : real = 2000;
motor_vehicle : real = 1400;
business : real = 1200;
Var
surname : array [1..2] of string; //array to save the surname for each client
insurance : array [1..2] of string;
premium : array [1..2] of integer;
total_premium : real;
client : integer;
home_count, life_count, motorveh_count, business_count : integer;
Begin
home_count := 0;
life_count := 0;
motorveh_count := 0;
business_count := 0;
for client := 1 to 2 do
begin
writeln('Enter the client Surname: ');
readln(surname[client]);
Writeln('Please enter the type of insurance: ');
readln(insurance [client]);
writeln('Enter your premium');
readln(premium [client]);
if (premium [client]) > 0 then
Begin
if (insurance [client] = 'Home') then
Begin
home_count := home_count + 1;
end;
End;
end;
writeln('total amount :', home_count);
End.