Дан фрагмент программы. Определите результат выполнения программы

A:='KLASS';

DELETE(A, 1,2);

DELETE(A, 3,1);

WROTELN(S);

Данный фрагмент программы содержит ошибки, поэтому выполнение программы невозможно. Ошибки заключаются в следующем:

- Не определена переменная S, которую программа должна вывести.
- Неправильно написано название функции для вывода на экран, должно быть WRITELN, а не WROTELN.
- Второй вызов функции DELETE должен иметь первый параметр равный 2, а не 3, чтобы удалить символ "S" из строки.

Исправленный фрагмент программы будет выглядеть так:

```
var A: string;
begin
A := 'KLASS';
Delete(A, 1, 2);
Delete(A, 2, 1);
Writeln(A);
end.
```

Результат выполнения этой программы будет "AS".