Какое значение будет принимать переменная у после выполнения программы:
Var x, y:integer;
Begin
y:=1 ; x:=15
repeat
y:=y*x;
x:=x-3
until x<5;
Writeln (' y=' ,y);
End

x y Y=y*x
15 1 15
заполните таблицу до конца