Program znanija_com;
uses crt;
var
a,cch,dch,sq,o,c:real;
begin
writeln('Введите число А: ');
read(a);
cch:=Int(a);
dch:=frac(a);
sq:=sqr(a);
o:=frac(a/5);
writeln(cch,' ',dch,' ', sq,' ',o);
end.
последнее даже не понял что там нужно. так что держи без последнего
Один берег перевозит другой бере
волк капуста коза
капуста волк обратно козу
коза капуста волк
капуста волк коза
Не знаю как для других,для меня сложная задача,поэтому сделал её как смог
Program znanija;
var b:integer;
begin
writeln('Какой у вас пульc(в ударах в минуту)?');
readln(b);
begin if b=60 then writeln('Это нормальный пульс человека')
else writeln('Ваш пульс не соответствует норме');
end;
<span>end.</span>