<span>
-Компьютер что мы о нем знаем.во первых компютер это машина которая помогает найти нам нужную информацию. Во вторых через компьютер мы общаемся с родственниками и друзьями . В третих компьютер можно назвать ученым изо того что именно он может ответить на любой вопрос . в четвёртых чкловек создал для компьютера игры которые можно скачивать . Компьютеры бывают разные мощные и скоростные . чем смогла тем помогла.
</span>
Var x,y,p,i:integer;
begin
readln(x,y);
for i:=1 to abs(y) do p:=p+x;
if y<0 then p:=-p;
writeln(p);
<span>end.</span>
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x.IsEven).Count());
end.
Var
x, y, q, r: integer;
begin
read(x,y);
r := x;
q := 0;
while r >= y do
begin
r := r - y;
q := q + 1
end;
write(q,' ',r)
<span> end.</span>