Question

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

867a25f5ba8f53053884c2703db6df51.pas

4166146f0c894f0f578508456ef86df3.pas

af2fd251ff58d47cfe098fa46ff730e9.pas

Answer 1

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