Дан диаметр окружномти d. найти ее длину l=p*d. в качестве значения p использовать 3, 14

Var l, p, d: real; label undf; begin undf: writeln('введите диаметр окружности: '); readln( d ); p : = 3.14; l : = p * d; writeln( 'длина равна ', l ); end.

1) var   x,y,z: integer; begin   for x: =1 to 10 do   for y: =1 to 10 do     for z: =1 to 10 do   if sqr(x)+sqr(y)=sqr(z) then   writeln('x= ',x,' y= ',y,' z= ',z); end.2)var  x,y,k,r: integer; begin  write('введите радиус: '); readln(r);   k: =0;   if r> 0 then  begin  for x: =-r to r do  for y: =-r to r do  if sqr(x)+sqr(y)< =sqr(r) then k: =k+1;   write('количество целых точек: ',k);   end    elsewrite('радиус должен быть положительным! '); end.

Procedure convert ( x: integer ); var s: string; k, error, len: integer; element: array[1..20] of real; i, rez: real; const n = -2; begin s : = inttostr(x); len : = length(s); if len = 0 then writeln('ошибка! ') else begin  i : = 0; rez : = 0; for k : = 1 to len do val(s[k], element[k], error); for k : = 1 to len do begin i : = element[k] * power( n, len - k ); rez : = rez + i; end; writeln(rez); end; end; var numeric: integer; begin write('введите двоичное число для перевода в систему счисления с основанием (-2): '); readln(numeric); write('ответ: '); convert(numeric); end.