Впрограмме "кумир" написать алгоритм "вишенки" как на картинке. .

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.

один, два, три, четыре, пять

12345

var a,b,c,d: integer;

begin

  read(a,b,c,d);

  if (a*b*c*d mod 3 = 0) then

        writeln("pravda")

  else writeln("nepravda");

end.

"доброе утро" в 7: 00"доброго дня" в 14: 00"доброго вечера" в 17: 00"спокойной ночи" в 21: 00