как сделать вместе чтобы работало?Vars:string;beginwriteln('Как Вас зовут?');write('Введите свое имя и нажмите ->');read(s);write('Здравствуйте, ',s);end.Uses crt;var a,i:byte;s:real;beginclrscr;for i:=1 to 4 dobeginwriteln('vvod');readln(a);if a mod 5=0 then writeln('Число ',a,' кратно 5 ')else writeln('Число ',a,' не кратно 5')end;end.