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

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.