Написать программу, отвечающую можно ли переходить дорогу и выслать программу учителю. Пример выполнения программы приведен ниже:

Class RandomFile{
 public static void main(String args[]){
  char charArray[] = {'а','р','й','о','ш','з','б','э','ж','ы','л'}; 
  java.util.Scanner in = new java.util.Scanner(System.in);
  String lineSeperator = System.getProperty("line.separator");
  System.out.print("Количество строк: "); int stringsAmount = in.nextInt();
  System.out.print("Название файла: "); String fileName = in.nextLine(); fileName = in.nextLine(); fileName = fileName+".txt";
 
  try(java.io.FileWriter fout = new java.io.FileWriter(fileName)){
   for(int currentString = 0; currentString<stringsAmount; currentString++){
    String generatedString = "";
    for(int currentChar = 0; currentChar<charArray.length; currentChar++){
  int randomChar = -1; boolean badRandom = false;
   do{
   randomChar = (int)(Math.random()*1000)%charArray.length; badRandom = false;
   for(int genStrPos = 0; genStrPos<generatedString.length(); genStrPos++)
    if(generatedString.charAt(genStrPos)==charArray[randomChar]){badRandom = true;break;}
  }while(badRandom);
  generatedString = generatedString+charArray[randomChar];
    }
 fout.write(generatedString+lineSeperator);
   }
  }catch(java.io.IOException io){
   System.out.println("Ошибка вывода в файл!");
  }
 }
}

Program abc;
var a:array[1..6] of integer;
var i,s: integer;
begin
 i:=0;a[1]:=500;a[2]:=100;a[3]:=10;a[4]:=5;a[5]:=2;a[6]:=1;
writeln('Введите целое число,сумму денег:');
readln(s);
while s<>0 do
begin
if s>=a[1] then begin
s:=s-a[1]; i:=i+1; end;
if (s>=a[2]) and (s<a[1]) then begin s:=s-a[2]; i:=i+1; end;
if (s>=a[3]) and (s<a[2]) then begin s:=s-a[3]; i:=i+1; end;
if (s>=a[4]) and (s<a[3]) then begin s:=s-a[4]; i:=i+1; end;
if (s>=a[5]) and (s<a[4]) then begin s:=s-a[5]; i:=i+1; end;
if (s>=a[6]) and (s<a[5]) then begin s:=s-a[6]; i:=i+1; end; 
end;
Writeln('Наименьшее число купюр =',i);
end.