Составить программу , как вас зовут, в какой школе вы учитесь?

  begin   write(', как вас зовут, в какой школе вы учитесь? ');   end.

примерно так. на псевдоязыке, который легко переводится в тот, который знаком

 

//*********************************************************

сумм=0;

конец=0;

 

ввод(ч);

пока (ч#конец)   цикл

              если проверить(ч)=1 тогда   

                            сумм=сумм+ч;  

            конецесли;

          ввод(ч);

конеццикла;

 

печать(сумм);

//*****************************************************************

 

//******************************************************************

функция проверить(п)

            если остаток(п,10)=4 тогда

                              если остаток(п,6)=0 тогда

                                                возврат(1);

                              конецесли;

            конецесли;

            возврат(0);

конецфункции

//*******************************************************************

 

этот текст не использует массивы, поэтому количество вводимых чисел неограничено. их величина определяется описанием переменной(если в языке оно явно требуется, для данных достаточно описать как целое( сумм описать побольше(если требуется).

если в языке нет функции остаток(обычно mod), напиши свою, это просто.

повторюсь, в паскаль, бейсик, 1с текст переводится легко, в с(java, php и пр.) чуть сложнее, там немного другой синтаксис, но это преодолимые проблемы.

насколько я знаю в любой сборке delphi есть компонент "application events", у которго есть соответствующее событие "onshortcut", так вот разместите на форме данный компонент (в 7 версии delphi он должен лежать во вкладке "additional") и запишите в его свостве onshortcut следующее:

procedure tform1.applicationevents1shortcut(var msg: twmkey; var handled: boolean); beginif msg.charcode = ord('g') thenform1.close; end;

ord('g') - функция возвращающая код символа, в её параметр записывайте непосредственно тот символ, по нажатию которого должна прекратить работу ваша программа.