Представим себе, что в некотором государстве хотят отремонтировать все мосты через все реки. Всего имеется N рек. В этом государстве каждый мост состоит из одинакового количества брёвен, равного Х. Руководство хочет как можно быстрее отремонтировать все мосты, поэтому приняло решение их просто покрасить. На покраску одного бревна уходит M банок краски. В каждой банке L литров краски. Необходимо определить, сколько всего литров краски будет израсходовано. Формат ввода
В первой строке записано единственное число 1 ≤ N ≤ 1000 – количество рек в государстве.

Во второй строке записано единственное число 1 ≤ Х ≤ 200 – количество брёвен в одном мосту.

В третьей строке записано единственное число 1 ≤ M ≤ 5 – количество банок краски, необходимое для покраски одного бревна.

В четвёртой строке записано единственное число 1 ≤ L ≤ 5 – количество литров в одной банке краски.
Формат вывода
ответ на вопрос задачи

Веб-дизайнер:Такой специалист занимается созданием сайтов и придумывает уникальные дизайнерские решения для них. Сегодня каждая уважающая себя фирма желает иметь свой Интернет-ресурс, а чтобы он был интересен для пользования, у него должна быть довольно удобная система навигации и интересное эстетическое оформление. Именно эти задачи и стоят перед веб-дизайнерами.

Вид деятельности «Программирование» - аналитик компьютерных систем, системотехник, инженер по автоматизированным системам, программист.
Вид деятельности «Обслуживание компьютерной техники» - IT-специалист (менеджер) , оператор ПК (ЭВМ) , системный интегратор, системный администратор, специалист по защите.
Вид деятельности «Искусство» - дизайнер, веб-дизайнер, фотограф, клипмейкер, фрилансер.
Вид деятельности «Полиграфия» - пейджмейкер, копирайтер, рерайтер, корректор, художественный и технический редактор, верстальщик, оператор компьютерного набора.
Вид деятельности «Офис, организация, предприятие» - секретарь, референт, делопроизводитель, машинистка, бухгалтер, менеджер, консультант.

Var
N,A:integer;
Begin
Write('N = ');Read(N);
A:=0;
While N>0 do
   Begin
   if (N mod 10) > A then A:= N mod 10;
   N:=N div 10;
   End;
Write(A)
End.

Var
N,A,B:integer;
C:boolean;
Begin
Write('N = ');Read(N);
A:=-1;
B:=-2;
C:=false;
While N>0 do
   Begin
   if A=B then C:=true;
   if N>0 then
      Begin
      A:=N mod 10;
      N:=N div 10;
      End;
   if A=B then C:=true;
   if N>0 then
      Begin
      B:=N mod 10;
      N:=N div 10;
      End;
   End;
if A=B then C:=true;
if C then Write('Есть')
else Write('Нет')
End.