Вычислить стоимость порций сыра весом 50, 100, 150 и тд до 950гр если цена одного кг =a руб паскаль

Var   a, i: integer; begin   readln(a);   i : = 50;   while (i < = 950) do   begin     writeln(string.format('{0} гр. сыра стоит {1} руб.', i, a / 1000 * i));     i += 50;   end; end.

5) program gt5; var n,k: integer; begin k: =0; while n> 0 do begin n: =n div 10; k: =k+1; end; writeln(k); end. 3) program gt3; var s,i: integer; begin s: =0; for i: =1 to 100 do begin if(i mod 2=0)then s: =s+i; end; writeln(s); end. 2) program gt2; var k,i: integer; begin k: =0; for i: =11 to 20 do begin if(i mod 2=1)then k: =k+1; end; writeln(k); end. 1) program gt1; var  x,y: real; begin x: =-3.1; while x< 1 do begin x: =x+0.1; y: = 4*x*x*x-2*x*x+5; writeln(y); end; end.про 4 я не  понял поэтому не  смог решит

Вслове зима обозначаем буквы их порядковым номером: з - девятая буква алфавита, и - 10, м - 14, а -1.  получаем последовательность 9   10   14   1. будем шифровать слово интернет. букву и сдвигаем на 9 букв, получаем с, букву н сдвигаем на 10 букв, получаем ч букву т сдвигаем на 14 букв, получаем а (так как сдвиг на 13 это буква я, алфавит начинается заново, 14 будет буква а) букву е сдвигаем на 1 букву, получаем ж (если в алфавите ё не  считается) букву р сдвигаем на 9 букв, получаем щ,  букву н сдвигаем на 10 букв, получаем ч букву е сдвигаем на 14 букв, получаем у букву т сдвигаем на 1 букву, получаем у ответ интернет = счажщчуу