Перевод кода из PascalABC.NET в Python 3.9

Код может быть ужасен , но помогите пожалуйста. Изучение Python начал недавно.

uses crt; 

var rost, w2: real;
 w1,w3: string;
 n: byte;
X,Y,Rezult: integer;
Operation:string;
v:integer;
 begin
n := 15; //Номер цвета
  TextBackground(n); //Задаем цвет фона
  ClrScr; //Очищаем окно установленным выше цветом
  textcolor(black);
 w1:=('Семпай, как вас зовут');

 writeln(w1);
 readln(w1);
 if w1=('Саша') then exit; 
 writeln(w1 ,' красивое имя. А теперь скажите ваш рост и я отгадаю ваше имя');
 w3:=('Я такое не понимаю. ');
 readln(rost);
 
 writeln('Тебя зовут- ',w1, '. Я молодец ? 1-это да, 2- это нет');
 readln (w2);

 if w2=1  then write(' Cпасибо. ' ,w1,' '); if w2=2 then write('Прости меня Семпай. ');
 if (w2<>1) and (w2<>2) then write (w3);
 writeln('Я ещё умею считать. Вот скажите два числа и что мне с ними делать . Вот варианты: +, -, * ,D, квадрат первого числа , квадрат второго числа ');
 Readln(X,Y);
 Readln(Operation);
 Case Operation of 
   '+': Rezult:= X+Y;
   '-': Rezult:= X-Y;
   '*': Rezult:= X*Y;
   'D': Rezult:= X div Y;
   'квадрат первого числа': Rezult:= X*X;
   'квадрат второго числа': Rezult:= Y*Y
 end;
 if  Rezult=993 then write('oshiete oshiete yo sono shikumi wo boku no naka ni dare ga iru nokowareta kowareta yо. Гули построят этот мир , а гули-коммунисты сделают мир  идеальным ');



 
 Writeln('Ответ: ', Rezult);

 repeat
 Writeln('Что-то скучно ',w1,'  Может ты выберешь картинку , а я нарисую? 1-да или 2-нет');
 
 readln(v);  
 until v in [1,2];
 if v=2 then writeln('Ладно,но очень скучно. А я всё равно нарисую котика') else 
   writeln('Тогда я нарисую котика'); // дальше по коду я хотел сделать  открывающееся окно с выбором двух котов. После выбор коты рисовались.

 
   
 readln ;
 end.

Ответы (0 шт):