Программа спрашивает стороны прямоугольника, находим площадь и выводим на экран результат. Далее программа спрашивает любое число если число делиться на 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;

begin clrscr;

write ('Сторона 1:');

readln (a);

write ('Сторона 2:');

readln (b);

s:=a*b;

writeln ('Площадь=', s:10:3);

end.