задача4
var ves: real;
begin
write ('введи вес боксера');
read (ves);
if ves <60 then writeln ('боксер легкого веса');</p>
if (ves >60) and (ves<64) then writeln ('боксер первого полусреднего веса');</p>
if (ves >60) and (ves<69) then writeln ('боксер полусреднего веса');</p>
end.
задача 5
var a,b,c: real;
begin
writeln ('введи три числа');
readln (a,b,c);
if (a> 0.7) and (a<5.1) then write (a); </p>
if (b> 0.7) and (b<5.1) then write (b); </p>
if (c> 0.7) and (c<5.1) then write (c); </p>
end.