{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 …

Member Avatar
Member Avatar
+0 forum 4

The End.