Visualg - Algoritmo

[Diego Angelo 0]

Faça um programa que ajude um detetive babaca , desvendar um crime fazendo 5 perguntas para uma pessoa . As perguntas são: "Telefonou para a vítima?" "Esteve no local do crime?" "Mora perto da vítima?" "Devia para a vítima?" "Já trabalhou com a vítima?" O programa deve no final emitir uma classificação sobre a participação da pessoa no crime. Se a pessoa responder positivamente a 2 questões ela deve ser classificada como "Suspeita", entre 3 e 4 como "Cúmplice" e 5 como "Assassino". Caso contrário, ele será classificado como "Inocente".

 

help-me please!

[Luan94 0]

program Detetive;

var
perg1, perg2, perg3, perg4, perg5 : string;
cont : integer;
begin

writeln('Telefonou para vitima? s/n');
readln(perg1);
if perg1 = 's' do
cont := cont + 1;


writeln('Esteve no logal do crime? s/n');
readln(perg2);
if perg2 = 's' do
cont := cont + 1;

writeln('Mora perto da vitima? s/n');
readln(perg3);
if perg3 = 's' do
cont := cont + 1;

writlen('Devia para a vítima? s/n');
readln(perg4);
if perg4 = 's' do
cont := cont + 1;

writeln('Já trabalhou com a vítima? s/n');
readln(perg5);
if perg4 = 's' do
cont := cont + 1;

if cont = 2 do
writeln('Suspeita');
if cont = 3 or cont = 4 do
writeln('Cúmplice');
if cont = 5 do
writeln('Assassino');
end;

 

Cara optei pela linguagem pascal pra fazer pois ela e mais simples para entender o código, faz tempo que não uso o pascal então se tiver algum erro de sintaxe ignore e tente entender a lógica.