Информатика

Дуся

25 февраля, 20:01

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