Question

помогите с информатикой, пожалуйста!!!

Answer 1

1) var  y: integer;
begin 
readln(y); 
 if (y > 100) and (y<1000) then y := y - 26; 
writeln(y);
end.

Answer 2

не совсем так. если y>100 && y<1000 тогда уж

Answer 3

Не учел, спасибо за поправку)