Зміна об’єктів слайда та їх властивостей називається…

var x,y: real;

begin

  read(x);

  if x< =10 then y: = 210

  else y: = x*x*x;

  writeln(y);

end.

  вал. панамка

рыба с буквой - рыбак

n=get()k=0s=0while n> =1 do      s=s+n % 10      k=k+1      n=(n-n%10)/10endprint(s,k)

const n=10;

var a: array[1..n] of real;

i: integer;

x: real;

begin

randomize;

for i : = 1 to n do

a[i] : = random (100)-50;

readln(x);

for i: =1 to n do

if a[i]> x then p: =p*i;

writeln(p);

end.