Скидывал уже в предыдущею тему, ну раз не заметили скину ещё раз.
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.