(паскаль) написать программу пересчета веса из фунтов в килограммы (1 российский фунт равен 409, 5 г ниже представлен рекомендуемый вид экрана во время работы программы (данные, введённые с клавиатуры, выделены полужирным шрифтом) пересчет веса из фунтов в килограммы. введите вес в фунтах – 5 5 фунт(а/ов) = 2.05 кг заранее огромное)

var a,b: real; beginwriteln('введите кол-во фунтов'); readln(a); b: =a*409.5; writeln('граммов b=',b,'г'); b: =b/1000; writeln('b=',b,'кг'); readln; end.

программу написала в паскале, надеюсь подходит))

program 1; var a: array[1..10] of integer; i,q,max,min,l,k: integer; begin randomize; for i: =1 to 10 do begin a[i]: =random(100); write(a[i]: 3); end; writeln; for i: =1 to 10 do if (a[i]> q) and (a[i]< l) then inc(k); writeln('k=',k); end.

2. 

program 2; var a: array[1..10] of integer; i,max,min,k,l: integer; begin  randomize; for i: =1 to 10 do begin a[i]: =random(100); write(a[i]: 3); end; writeln; max: =a[1]; min: =a[1]; for i: =2 to 10 do begin if a[i]> max then begin  max: =a[i];   k: =i;   end; if a[i]< min then begin  min: =a[i];   l: =i;   end; end; writeln('max=',max,', его индекс=',k,', min=',min,', его индекс=',l); end.

у меня так, но не

 

rem с условием

input "x",x

input "y",y

input "z",z

if x=y=z then

    x=3*x

    y=y*3

    z=y*3

    print x

    print y

    print z

   

   

else

    if y=z then

          x=-x

          y=-y

          z=-z

          print x

          print y

          print z

         

         

    else

          x=222

          y=222

          z=222

          print x

          print y

          print z

    end if

end if

end