1)
program task1;
var x,y,xq,yq,sum,pro,cha,raz:integer;
begin
write('Введите числа:');
readln(x,y);
xq:=sqr(x);
yq:=sqr(y);
sum:=xq+yq;
raz:=xq-yq;
pro:=xq*yq;
cha:=xq/yq;
write('Сумма=',sum,';Разность=',raz,';Частное=',cha,';Произведение=',pro);
end.
2)
program task2;
var a,r,rr,h,s:real;
begin
write('Введите длину стороны треугольника: ');
readln(a);
r := sqrt(3) * a / 6;
rr := 2 * r;
h := 3 * r;
s := a * h / 2;
Writeln('Радиус вписанной окружности ', r::2);
Writeln('Радиус описанной окружности ', rr::2);
Writeln('Высота треугольника ', h::2);
Writeln('Площадь треугольника ', s::2);
end.
Сумма бесконечна так как нет второго предела
100 точек 1 бит на каждую
100 бит информационный объем
Немного не понял вопроса, но если составные условия, то наверное имеется ввиду AND(и), OR(или), XOR(исключающее или).
and работает если все условия правдивы
if (a=5) and (a*a/a=5) do ...
or работает если одно и более условий верны
if(a=5) or (a=3) do ...
xor работает если ТОЛЬКО ОДНО условие верно
if (a=5) xor (a=3) do ...