помогите решить задачу по паскалю пацаны. отблагодарю

Question

7.Пользователь вводит 4 символа. (Char). Вычислите количество «*» среди них.

Ирина Гаврилова · Accepted Answer

for i = 1 to 4 do begin 
readln(s); 
if s = '*' then inc(count); 
end;

Юлия Неизвестная · Answer

Вообще здесь может быть на врятли ответят) 
забей в гугле форумы по паскалю, или форумы програмистов. 
Зарегистрируйся и тебе там люди помогут! 
Я так по делфи и вижуалбэйсик непонятные задачи делал!

Михаил Апыхтин · Answer

a: char 
begin 
if keypressed then begin 
readkey(a); 
if a ="*"then....
end;