Как их сделать вместе чтобы работало 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.