Const NoYes: array [Boolean] of string = ('Не принадлежит.','Принадлежит.'); var x, y: Real;
begin
Write('Введите x, y: '); ReadLn(x,y);
WriteLn(NoYes[abs(x-4)+abs(y-4)<=3]);
end.
перевод с Pascal на Python

Для запуска сомандной строки:

Нажать Win+R, ввести CMD, нажать Enter.

Для получения информации о командах набрать HELP, нажать Enter

Неочевидное:

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

C:\>help > cmdhelp.txt перенаправит вывод команды HELP в файл cmdhelp.txt . Если такого файла нет, он будет создан. Если есть, содержимое будет полностью заменено новыми данными. Если нужно дописать данные в существующий файл, использовать >> , например

C:\>help >> cmdhelp.txt То же самое, что и в предыдущем случае, но если файл существует, новые данные допишутся в его конец.

9. Как создать файл:

C:\>echo "test">test.txt

PS Скорее всего Windows не даст писать что либо в корень диска С:, так что для опытов лучше использовать, например, флэшку. Для изменения текущего диска в командной строке надо просто набрать букву этого диска и двоеточие. Например, флэшке виндой присвоена буква G, тогда после открытия окна командной строки надо набрать G: и нажать Enter. Приглашение ввода изменится на

G:\>

Enter вообще прикольная кнопка, жми ее почаще :)

1)uses crt; var  x,a,b,c,i: integer;     begin cls;   write('введите число: '); readln(x);     a: = x div 100;     b: = (x - a*100) div 10;     c: = (x - a*100 - b*10);     if (a=b) or (a=c) or (b=c) then    writeln('есть одинаковые цифры')    else    writeln('одинаковых цифр нет'); end.2)uses crt; var  x: real;     begin cls;   write('сумма покупки: '); readln(x);     if x> 1000 then x: =x-(x*0.1);     writeln('стоимость с учётом возможной скидки ',x); end.