Нужно сделать тренажёр по в scratch. мысль в том чтобы при начале программы выдавало случайный элемент(из таблицы минделеева), и нужно было ввести его название в появившейся в низу строке. как это сделать наилучшим образом?

s = 0

k = 0: x = -10+3*0 = -10; x>0 - нет

k = 1: x = -10+3*1 = -7; x>0 - нет

k = 2: x = -10+3*2 = -4; x>0 - нет

k = 3: x = -10+3*3 = -1; x>0 - нет

k = 4: x = -10+3*4 = 2; x>0 - да; s = 0+2 = 2

k = 5: x = -10+3*5 = 5; x>0 - да; s = 2+5 = 7

k = 6: x = -10+3*6 = 8; x>0 - да; s = 7+8 = 15

k = 7: x = -10+3*7 = 11; x>0 - да; s = 15+11 = 26

k = 8: x = -10+3*8 = 14; x>0 - да; s = 26+14 = 40

k = 9: x = -10+3*9 = 17; x>0 - да; s = 40+17 = 57

k = 10: x = -10+3*10 = 20; x>0 - да; s = 57+20 = 77

На экран будут выводиться значения: -10  -7  -4  -1   2   5   8  11  14  17  20

После 20 выведется значение s = 77. Т.е подряд, без пробелов, будут выведены числа 20 и 77.

Значение s = 77.

1) var a,b,x:real;
begin
write ('введите числа а и b: '); readln(a,b);
x:=-b/a;
writeln('x= ',x);
end.
2) var r1,r2,s:real;
begin
write ('введите размеры внешнего и внутреннего радиусов: '); read(r1,r2);
s:=pi*r1*r1-pi*r2*r2;
write ('Площадь кольца = ',s);
end.
3) var a,b,c,s,p:real;
begin
write ('введите длины катетов: '); read(a,b);
s:=a*b/2;
c:=sqrt(a*a+b*b);
p:=a+b+c;
write ('Площадь треугольника = ',s);
write ('Периметр треугольника = ',p);
end.
4)  var a,b,sr:real;
begin
write ('введите числа а и b: '); readln(a,b);
sr:=(abs(a)+abs(b))/2;
writeln('среднее арифметическое модулей = ',sr );
end.

5) var x1,y1,x2,y2,r:real;
begin
write ('введите координаты точек: '); readln(x1,y1,x2,y2 );
r:=sqrt ( sqr(x2-x1)+sqr (y2-y1));
writeln('расстояние = ',r );
end.
6)  var a,b,h, s, p:real;
begin
write ('введите длины оснований и высоту трапеции: '); readln(a,b,h);
s:=(a+b)*h/2;
p:=a+b+h+sqrt (sqr(abs(a-b))+h*h);
write ('Площадь трапеции = ',s);
write ('Периметр трапеции= ',p);
end.
7) var a,e,d,s, p:integer;
begin
write ('введите трехзначное число: '); readln(a);
e:=a mod 10; s:=a div 100;
d:= (a div 10) mod 10; p:=e*d*s;
write ('разность между трехзначным числом и его произведением = ',a-p);
end.
 к твоему комментарию 
var x,s,m,c: integer;
begin
write('введите количество секунд: ');readln(x);
c:=x div 3600;
m:= (x mod 3600) div 60;
s:=(x mod 3600) mod 60;
часов ',m,' минут ', s,' секунд ');
end.