01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / AN_5

 PROGRAM test(output);
  var
  K:integer;
  x:real;
  begin
   { ‚ў®¤ Ёб室­ле ¤ ­­ле }
   x:=523.63;
   K:=0;
   while K<=10 Do
 begin
   K:=K+2; write(K:5)
  end;
  write('      ',x:5:3)
end.