как их сделать вкупе чтоб работало Uses crt;var a,i:byte;

Как их сделать вкупе чтоб работало 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('Введите свое имя и нажмите -gt;'); read(s); write('Здрасти, ',s); end.