Так как X не равно 4, то результатом будет 1. Второй операнд не проверяется, потому что это операция ИЛИ.
Папирус, стена, камень, пещера, янтарь
Var a, b:real;
begin
readln(a, b);
writeln('Площадь равна ', a*b);
writeln('Периметр равен ', 2*(a + b));
end.
Единственный возможным вариантом считаю, обращение в техническую поддержку. Там процедура не особо сложная, возможно спросят: имя аккаунта, когда создан, что написано в профиле, какая была почта, старый телефон, место откуда последний раз заходил. Но восстановлению подлежит.
Название по-моему называется: Excel, точно не знаю, если что извените...