Как сделать вместе чтобы работало?
Var
s:string;
begin
writeln('Как Вас зовут?');
write('Введите свое имя и нажмите ->');
read(s);
write('Здравствуйте, ',s);
end.
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.