Выберите алгоритмы,записанные в виде текста, программы и блок-схемы Варианты,не являющаеся алгоритмами, оставь на месте.
​

Var  s: string;  k: real;
begin 
write('Введите вес в килограммах '); 
Readln(k); 
Write('Во что хотите перевести (мгр, гр, Цн, Тн, КТн, МТн): '); 
Readln(s); 
case s of   
'мгр': write(k, 'кг = ', k * 1000000, ' мгр');   
'гр': write(k, 'кг = ', k * 1000, ' гр');   
'Цн': write(k, 'кг = ', k / 100, ' ц');   
'Тн': write(k, 'кг = ', k / 1000, ' Т');   
'КТн': write(k, 'кг = ', k / 1000000, ' Кт');   
'МТн': write(k, 'кг = ', k / 1000000000, ' Мт') 
Else write('Неправильно введена единица измерения'); 
End;
end.

Если число повторений тела цикла заранее известно, то используется оператор цикла for, который также часто называют оператором цикла с параметром.

Оператор for состоит из двух частей: тела цикла и заголовка, который предназначен для описания начального и конечного значений параметра цикла, а также варианта его изменения.

В зависимости от направления изменения параметра цикла (возрастание - to или убывание - downto) в языке Паскаль оператор цикла for может быть записан в одной из двух форм:

Объяснение: