Напишите программу, которая увеличивает заданное число в 100 раз, если ого меньше 20, и уменьшает в 10 раз в противном случае

program zz1;

var k, s:real; / / задаем переменные не целого типа

begin

write (' введите заданное число '); / / вводим число с клавиатуры

read (k);

if k < 20 / / проверяем условие, если введенное число меньше чем двадцать, то

then s:=k * 100 / / увеличиваем заданное число в сто раз

else s:=k / 10; / / иначе, уменьшаем заданное число в десять раз

writeln (' полученный результат = ', s); / / выводим ответ

end.