программа спрашиваетстороны прямоугольника,находим площадь и выводим на экран результат.Далее программа спрашивает любое число если число делиться на 5 выводит на экран сообщение число кратно 5 иначе выводит сообщение число не кратно 5 далее программа спрашивает как вас зовут и раз вывести имя на экран

1) Программа на нахождение кратности
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. 
2) Программа на нахождение площади
uses crt;
var a,b,s:real;
beginclrscr;
write('Сторона 1:');
readln(a);
write('Сторона 2:');
readln(b);
s:=a*b;
writeln('Площадь=',s:10:3);
end.