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