Question

Помогите,задание по информатике: 1. Оптимизировать код: y:=4 Если y равно 3 тогда z:=10 иначе z:=20 Конец если 2. Оптимизировать код: Пока x не равно 1 x:=1 Конец цикла

Answer 1

Var
 y,z:integer;
begin
 y:=4;
if y=3 then
z:=10
else z:=20;
end.

вторая прога 
var
x:integer;
begin
while x<>1 then
x:=1 
end.