Напишите новую программу, которая 1. последовательно прочитает строки в которых написано "алиса" или "антон" сколько строк - неизвестно, но мы знаем, что минимум одна партия закончилась победой (в такой игре не может быть ничей)
2. Выведи имя того, кто выйграл первую партию и счёт например так :
Алиса
11 5

язык - Пайтон,

//1
begin
var ch:=readchar ('Введите символ: ');
if ch in ['A'..'z', 'А'..'я'] then
begin
if upcase(ch)=ch then write ('Прописная ') else write ('Строчная ');
if ch in ['A'..'z'] then write ('английская ') else write ('русская ');
write ('буква');
end
else if ch in ['0'..'9'] then write ('Цифра') else write ('Символ');
end.

//2
begin
var x:=readreal ('Ведите координаты точки: ');
var y:=readreal;
if (x=0) and (y=0) then write ('Точка лежит на начале координат') else
if x=0 then writeln ('Точка лежит на оси ординат') else
if y=0 then writeln ('Точка лежит на оси абсцисс') else
if x>0 then
if y>0 then write (1) else write (4)
else if y>0 then write (2) else write (3);
end.

Створюємо кнопку
Для кнопки (Button1) процедура onClick
Створюємо поле вводу
Створюємо текстове поле

procedure TForm1.Button1Click(Sender: TObject);var x: real;begin x:= StrToFloat(Edit1.Text);if Edit1.Text = '1'then Label1.Caption:= 'Январь';if Edit1.Text = '2'then Label1.Caption:= 'Февраль';if Edit1.Text = '3'then Label1.Caption:= 'Март';if Edit1.Text = '4'then Label1.Caption:= 'Апрель';if Edit1.Text = '5'then Label1.Caption:= 'Май';if Edit1.Text = '6'then Label1.Caption:= 'Июнь';if Edit1.Text = '7'then Label1.Caption:= 'Июль';if Edit1.Text = '8'then Label1.Caption:= 'Август';if Edit1.Text = '9'then Label1.Caption:= 'Сентябрь';if Edit1.Text = '10'then Label1.Caption:= 'Октябрь';if Edit1.Text = '11'then Label1.Caption:= 'Ноябрь';if Edit1.Text = '12'then Label1.Caption:= 'Декабрь';end;
end.