Пи - константа и (примерно) равна 3,14, а для возведения в квадрат в паскале есть крутая штука - sqr(R); . во второй
var x,y:real;
begin
writeln('введите число');
read(x);
y:= 1/(x+1);
write(x);
<span>end.</span>
{требуются переменные под длинны сторон, для площади и промежуточная для полупериметра;
программа:}
Program n1;
var a,b,c,S,p: real; {описание переменных}
begin
readln(a,b,c); //ввод данных
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('площадь: ',S);
end.
Var
a,b,x,y,z:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
z:=b;
if b<0 then z:=-b;
for y:=1 to z do begin
x:=x+a;
end;
if b<0 then x:=-x;
writeln('Произведение чисел = ',x);
end.
Проверка по входным данным на фото
для одного пикселя log2 65536 = 16 бит = 2 байта