как их совместить?Пожалуйста посчитайте плиииззз СРОЧНО

Скидывал уже в предыдущею тему, ну раз не заметили скину ещё раз.
Uses crt;
var k,b,f,i:real; 
y:string;
a:integer;
s:real; 
begin 
clrscr; 
begin 
writeln('vvod'); 
readln(a); 
if a mod 5=0 then 
writeln('Число ',a,' кратно 5 ') 
else 
writeln('Число ',a,' не кратно 5') 
end;

write('Сторона 1:'); 
readln(k); 
write('Сторона 2:'); 
readln(b); 
f:=a*b; 
writeln('Площадь=',f:10:3); 
writeln('Как Вас зовут?');
readln(y);
writeln('Вас зовут ',y);
end.