program zadacha;
Var x,a,b :real;
begin
readln (a,b);
if a<>0 then x:=-b/a;
Writeln ('x= ',x);
end.
Var A,L: real;
begin
readln(L);
A:=((exp(ln(L)*3)-8.5)/7.6)+10*sqr(L);
writeln(A);
end.
Вставить установочный диск/флешку с Windows, и восстановить. Эта проблема означает что у вас нету точки восстановления. Лучше включить что бы в будущем не было таких проблем
Повторить пять раз
Нарисовать квадрат 2х2 клетки.
Сместиться влево на две клетки и вниз на одну.
Закончить рисование