Вывести на печать слово «Салем, Казахстан!», пока значение х не будет равно 0​

program zadacha;

uses crt;

var a: array[1..6] of integer;

        max,i: integer;

begin

for i: =1 to 6 do readln(a[i]);

max: =a[1];

for i: =1 to 6 do if max > a[i] then max: =a[i];

writeln(max);

readln;

end.

вроде правильно..

1)деловая бумага; 2)подтверждает факт или право

a в квадрате плюс b в квадрате:  

;

1.найти разность показаний счетчика на конец месяца и на начало месяца.

2.умножить на цену одного квт/часа