как их совместить?
помогите плиииззз СРОЧНО

СПАСИБО ВЫРУЧИЛ БРАТАН

Поставь 5 звёзд и спасибо

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