Question

Скажіть в чому помилка коду ів Задача:Іван Петрович у нових штанах сів на щойно пофарбовану табуретку. На його штанах з'явилась квадратна пляма з довжиною сторони a см. Виявилось, що в хімчистку беруть одяг, плями на якому не більші S см2. Визначити, чи вдалось Іванові Петровичу врятувати свої штани? Program Z1;
Var a,S,n:real;
Begin
Writeln('Чи вдалося врятувати штани');
Readln(a,S,n);
a:=2;
s:=2*2;
If a<=S then writeln ('Врятував') else writeln ('Не врятував');
If a=2 then Writeln ('Не врятував');
Writeln('S',S:2:4);
End.