Почтальон ежедневно разносит а газет. Напишите программу, которая определяет, сколько газет разносит почтальон за месяц, если в нем 22 рабочих дня.

Язык Паскаль.

Var a, x: integer;

Begin

Read(a);

x := a * 22;

WriteLn(x);

End.

решаем относительно a: a=(-6*x2-c)/x4=-6*x2/x4-c/x4

uses crt;

var a,s: integer;

begin

s: =0;

writeln('введите числа');

while a< > 0 do begin

readln(a);

if (a> 0)  then s: =s+a;

end;

writeln('s=',s);

end.