Uses crt;varp: byte;a,b,c,d:real;begincls;write('1) Два в третьей степени = 2; 4;8 ? = ');readln(a);write('2) 2-1 = 1; 2; 3 ? = ');readln(b);write('3)какой сейчас год? = 2100; 2111,2013 ? = ');readln(c);write('4)12+1 = 12; 13;14 ? = ');readln(d);if a=8 then beginwrite('1) Правильно ');p:=p+1;end;else write('1) Неправильно (: ');if b=1 then beginwrite('2) Правильно ');p:=p+1;end else write('2) Неправельно (: ');if c=2013 then beginwrite('3) Правильно ');p:=p+1;endelse write('3) Неправильно (: ');if d=13 then beginwrite('4) Правильно ');p:=p+1;endelse write('4) Неправельно (: ')Writeln('Получено',' ',p:2:1,' ',правильных ответов');Readln;end. перевод с Pascal на Python