Решить информатику, скриншот приложил ниже, заранее

Program w3;

var s,a:integer;

begin

s:=0; a:=1;

while a<>0 do

 begin

 write('a = '); readln(a);

 s:=s+a;

 end;

writeln('Сумма = ',s);

end.

Создаете текстовый файл, копируете туда это, меняете расширение файла на .PAS, отправляете готовое задание на почту.