Решить 4 практические, с подробным объяснением. вопрос жизни и смерти. в экселе вообще полный 0

  1.  ввод информации в различном виде.                                                                     2. автоматическая обработка информации  по заранее составленной программе.         3.  хранение информации                                                                                                4. вывод информации в различном  виде.                                                                    а 5 не знаю

Var a,b,n,a1,b1: integer;     begin  write('введите рубли: ');     readln(a);   write('введите копейки: ');   readln(b);   write('введите количество: ');     readln(n);     readln(a,b,n);   if(a> 0) and (a< 30000) and (b> 0)  and  (b< 100)  and  (n> 0)  and  (n< 30000)  then begin    b1 : = b * n mod 100;   a1 : = a * n + b * n div 100;     writeln('рублей ',a1);   writeln('копеек ',b1);     end  else  writeln('ошибка ввода');     end.