Lazarus

[Markefimov]

Очень прошу помочь,сам ничего не смыслю в программировании,а по информатике задана работа на оценку,если не сдам работу-завалю сессию и не получу стипендию
Необходимо написать следующее в Lazarus:
1. Составить программу, которая удаляет номера в порядке убывания от 10 до 4
2.Ввести слово и целое число.
Напечатать слово, которое вы ввели в соответствующее число раз.
3.Написать алфавит в возрастающем порядке от A до Z
Буду очень очень очень благодарен

[mss]

> не сдам работу-завалю сессию и не получу стипендию

Ты мне платишь 300 руб, я делаю за тебя твою работу, ты ее сдаешь и получаешь стипендию.

Идет ?

[_Engine_]

1. Удаляет откуда?
2.

  var Slovo : String;
      i, cnt : Integer;
  begin
    Readln(slovo);
    readln(cnt);
    for i := 1 to cnt do
     writeln(slovo);
  end;

3.

var i : Integer;
   begin
     for i := ord('A') to ord('Z') do
      writeln(chr(i));
   end;

[Markefimov]

Engine Ты мой спаситель,благодарю тебя,бескорыстный и милосердный человек!

[Markefimov]

а мне просто это скопировать,не надо там юсес crt ?

[Markefimov]

Сообщение от Markefimov

а мне просто это скопировать,не надо там юсес crt ?

project1.lpr(11) Fatal: Syntax error, "." expected but "end of file" found

[_Engine_]

у последнего end вместо ; поставь .
Неужели даже с этим проблеммы?

[Markefimov]

Сообщение от _Engine_

у последнего end вместо ; поставь .
Неужели даже с этим проблеммы?

Я лох в программировании,можно ваш скайп,мастер?)

[Markefimov]

В первом задании надо по-моему написать числа в порядке убывания от 10 до 4,может быть надо чтобы они удалялись,типо обратный отсчет?

[Markefimov]

А там всё как programm создавать?