По информатике: 1. оптимизировать код: y: =4 если y равно 3 тогда z: =10 иначе z: =20 конец если 2. оптимизировать код: пока x не равно 1 x: =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.